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Avant-propos 


Le but de ce petit livre est de vous permettre de créer vous mêmes vos propres 
jeux sur TO7-79. Contrairement à ce que certains pensent, la conception d’un 
jeu sur un micro-ordinateur est au moins aussi compliquée et riche d’enseigne- 
ments que la programmation d’un utilitaire de traitement de texte ou de cal- 
cul. 

Lorsque le jeu à créer est un jeu de réflexion simple, le BASIC suffit le plus 
souvent. Si le nombre de tests à faire avant de jouer un coup augmente dans de 
très grandes proportions, comme pour les échecs par exemple, alors le temps 
mis par le BASIC pour effectuer ces tests risque d’être trop long et il est néces- 
saire de travailler alors en langage machine. 

Lorsque vous créez un jeu d’adresse et de réflexes, le TO7-79 doit répondre 
instantanément à vos commandes (déplacement de figure, tir de vaisseau spa- 
tial, etc.) et cette fois seul le langage machine du 6899 vous permet de pro- 
grammer ces jeux avec la vitesse nécessaire. 

Si vous souhaitez par la suite stocker ces jeux dans des mémoires mortes, tout 
le programme doit être écrit en langage machine. Si au contraire vous stockez 
vos jeux sur cassette ou disquette vous pourrez très bien n’écrire en assembleur 
que les parties concernant le déroulement du jeu proprement dit, et conserver 
en BASIC toute l’initialisation (présentation de l’écran, création des caractè- 
res utilisateurs, etc.). 

Lorsque l’on programme en langage machine, c’est également parfois pour 
économiser de la place en mémoire. On verra dans quelques exemples qu’un 
même résultat peut être obtenu par des programmes en assembleur différents, 
qui privilégient soit la vitesse, soit la place occupée en mémoire. 

Les principales techniques de jeu sont bien évidemment, le dessin de figures 
sur l’écran, le déplacement de figures en liaison éventuellement avec une 
détection de clavier, l'accompagnement musical, le comptage des points et les 
tests de déroulement du jeu. 

Pour qu’un jeu fonctionne bien, il faut que son programme soit le plus clair 
possible. Pour cela on le découpe en de nombreux sous-programmes, appelés 
à leur tour par le programme principal et n’ayant qu’UNE ENTRÉE et UNE 
SORTIE. On peut ainsi tester les sous-programmes indépendamment les uns 
des autres, et éventuellement créer une bibliothèque de sous-programmes. 

Le programme principal n’est plus alors qu’une succession d’appels des diffé- 
rents sous-programmes nécessaires au jeu. 


AVIS AU LECTEUR : La cassette d'accompagnement contient les programmes de 
jeux proposés dans cet ouvrage ainsi que les deux programmes ‘EDITEUR et 


“EDIT”. Reportez-vous à la page 21 


première partie 


Chapitre 1 


Ecrire en assembleur avec le TO7 


Les langages auxquels vous aurez accès le plus souvent sur un TO7 seront des 
langages évolués (BASIC, LOGO, PASCAL, etc.). C’est à l’aide du BASIC 
que l’on va implanter en mémoire, aux adresses choisies, les codes hexadéci- 
maux correspondants aux diverses instructions du langage machine 6809. 
L’instruction BASIC utilisée pour atteindre ce résultat est : 


POKE ADR, VAL 


Mais un programme d'écriture en mémoire doit offrir en Outre un certain 
nombre d’utilitaires qui doivent permettre par exemple : 

— de corriger une erreur à une adresse connue, 

— de déplacer des blocs d’instructions en mémoire, en avant Ou en arrière, 
— de chercher à quelle adresse se trouve une instruction, 

— de recopier un bloc mémoire à partir d’une adresse donnée, 

— de changer une instruction en une autre, toutes les fois qu’on la rencontre 
dans un bloc mémoire défini, 

— de supprimer une ou plusieurs instructions dans un bloc mémoire, en la/ou 
les remplaçant par un code non opératoire (NOP = &H]12), 

— de sortir du programme, 

— de lister sur l’écran ou l'imprimante, tout ou partie d’un programme. 


C’est ce que se propose de faire le programme ‘‘ÉDITEUR”’. 


I. Syntaxe des commandes 


Une commande n’est prise en compte que si le symbole x apparaît sur l’écran. 
On tape alors directement la commande en respectant exactement la syntaxe 
ci-dessous. En cas d’erreur, le message ‘Erreur de syntaxe” apparaît sur 
l'écran. 


Dans tout ce qui suit les adresses et leur Contenu Sont toujours en hexadéci- 
mal. 


1. Définition de l’origine du programme ORG &HXXXX 


Cette commande définit l’adresse de début du programme en XXXX (hexadé- 
cimal). L'éditeur renvoit alors à cette adresse et attend les octets constituants 
le programme. Ceux-ci doivent être tapés à la suite les uns des autres, sans 
espace. 


C’est l’éditeur qui placera les espaces nécessaires et calculera les adresses de 
rangement. À la fin d’une ligne on tape ENTREE. La numérotation des lignes 
suivantes est automatique. 
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2. Changement d’un octet en mémoire CHA XXX/YY/ZZ 


Dans ce cas : XXXX représente l’adresse hexadécimale de l’octet à changer. 
YY représente l’octet présent à cette adresse avant le change- 
ment. 


ZZ représente l’octet de remplacement. 


Si la valeur YY n’est pas présente à l’adresse XXXX alors le changement n’a 
pas lieu et l’éditeur affiche le message ‘‘Erreur de contenu mémoire.”” avant 
de rendre la main à l’utilisateur. Sinon l’adresse apparaît avec la nouvelle 
valeur de son contenu. 


On peut remplacer un octet YY par un autre ZZ entre deux lignes de pro- 
gramme incluses, en tapant : 


CHA XXXX-TTTT/YY/ZZ 


Depuis la ligne XXXX (hexa) jusqu’à la ligne TTTT, l’éditeur contrôle ligne 
par ligne si l’octet YY est présent et le remplace alors par ZZ. 


Toutes les lignes modifiées sont réécrites sur l’écran avec leur nouveau con- 
tenu. 


L’adresse TTTT doit toujours exister, et être supérieure ou égale à XXXX. 


3. Suppression d’un octet SUP XXXX 


Cette instruction remplace l’octet présent à l’adresse XXXX par le code non 
opératoire du 6889, NOP = &H12. 


Afin d’éviter les erreurs ‘‘fatales’”, on ne peut travailler ici que ligne par ligne. 


4. Pour sortir de l’éditeur, taper FIN 


5. Listage d’une zone mémoire Ls}SqRs 


LPRT LXXXX-TTTT 


Cette instruction permet de lister sur l’écran (SCRN) ou sur l’imprimante 
(LPRT) les contenus des lignes XXXX à TTTT incluses. 


L'adresse TTTT doit toujours exister et être supérieure ou égale à XXXX. 


6. Recherche de l’adresse d’un octet CHE XXXX-TTTT/YY 


Cette instruction a pour but de chercher toutes les adresses contenant l'octet 
YY entre les lignes XXXX et TTTT incluses et de renvoyer ces adresses incon- 
nues sur l’écran avec leur contenu. 


L'adresse TTTT doit toujours exister et être supérieure ou égale à XXXX. 


7. Recopie d’une zone mémoire REC XXXX-TTTT/UUUU 


Cette instruction permet de recopier tous les octets de l’adresse XXXX à 
l'adresse TTTT à partir de l’adresse UUUU. 


L'adresse TTTT doit toujours exister et être supérieure ou égale à XXXX. 


8. Déplacement d’une zone mémoire DEP XXXX- 
TTTT/UUUU 


Cette instruction semblable à la précédente permet toutefois la recopie de la 
zone XXXX-TTTT à partir de UUUU même si cette adresse est comprise 
entre XXXX et TTTT. Il y a d’abord sauvegarde de la zone à déplacer avant la 
recopie, ce qui n’existe pas dans la commande REC. 


9. Départ à une adresse donnée &HXXXX 


L’éditeur renvoit alors l’adresse XXXX et attend les octets du programme qui 
se tapent comme à partir de l’orgine. 


On peut sortir des commandes ORG et &H en faisant RETURN sans avoir 
tapé d’octet. 


10. Sauvegarde d’un programme 


Pour sauver une page de texte il faut sortir de l’éditeur en tapant FIN pour 
pouvoir ensuite utiliser la commande BASIC ‘SAVEM”’. 


IT. Listage du programme éditeur 


” fussrenens 
L t Î 
? # EDITEUR t 
» ! ! 
LLC LCEITE 


7 -- INITIALISATION — 


: 
4 
5 
£ 


ro 


O0 ? 


10 CLS:SCREEN?. 4, 4:CLEAR, LHOFFF 
11 GOSUB1800:" APPEL NL 
ri 


|A 
+ 


10 


14 * -- CHOIX DU MODE — 


20 COLOR: PRINT: PRINT "4": LINEINPUTAS: L$=LEFTS (AS, 3) : PRINT: COLOR? 
30 IFL$="DRE"ORLS=" or g"GOTO100Ù 

50 IFL$="CHA"ORLS=" cha" 60TO1400 

60 IFL$="SUP"ORLS=" sup" G0TO 10 

30 1FL#="FIN"ORLS=" 1j n"THENEND 

BE JFLE="LIS"ORLS= "li s"GOTD2000 

0% TFL$="CHE"ORL$=" che "60702200 

100 IFL$="REC"ORLS= "rec "GOT02490 

110 IFL$S="DEP"ORL$=" deo "6GOTO2600 

120 IFLEFTS(AS,21="RH"ORLESTS (A2, 21 =" 4h "G0TO280i 

130 IFAS="MENU"CRAt=" sent" THENGOSUB1 600: PRINT : PRINT : GO TO20 
150 PRINT"Instruction inexistante. ":60T02(: 

10" » 

194 * 

155 * - CODAGE D°ADRESSE HEXA->DECIMAL - 

19€ * 

198 ? 


200 FORN=1T04 

210 D$=MIDS (AS, I4N, 1) : GOSUB250 

220 NEXTN 

230 NL=D(1)#4096+D(2) 8256+D (3) 818+D (4) 
240 RETURN 

250 1F ASC(D$)C60 THEN DIN)=VAL(D$) ELSE D(N)=ASC (DS) -55 
260 RETURN 

262 ? 

264 

265 * --CODAGE D’OCTET HEXA-)DECIMAL -- 
266 ” 

268 ” 

270 FORN=1TO2 

280 D$=NIDS(XS,N, 1) : BOSUB25C 

290 NEXTN 

291 X=D(1)16+D (2) RETURN 

292 ? 

294 ? 

295 ? --TEST TOUCHE CLAVIER -- 

296 ? 

298 

200 ES=INPUTS(1) : RETURN 

Li FE 

994 ? 

995 * -- ORIGINE -— 

996 ? 


998 ? 

1000 IFMIDS(A$,4,1)=" "GOTDIO10ELSEPRINT "Erreur de syntaxe. ":G0TO 
20 

1010 IFMIDS(A$,5,2)="L&H"THEN]:=6: GOSUBZO0EL SENL=VAL (RIGHTS (AS. LEN( 
A$)-4)) 

1020 COLORS:PRINTHEXS(NLI+" ": :COLOR2 

1030 EOSUB300 

1040 IF ES=CHR$(13) BOT01100 ELSE X$=ES:PRINTES: 

1050 GOSUB500:1$=X$+E$:PRINTES+" ": :GOSUB270:POKENL, X:NLENL +1: X$= 


1060 EOSUB3O( 

1070 IFES=CHRS (13) THENPRINTES: GOTO1020ELSEXS=ES: PRINTES: : EOTO1 050 
1100 PRINT 

1140 607020 

1392 

1394 ? 

1395 ? -- CHANGE — 

1396 ? 

1398 ? 

1400 IFMIDS(AS$, 4,1)=" "GOTO1410ELSEGDT 01430 

1410 IFNIDS(A$,9,1)="/"THENIFMIDS (A$,12,1)="/"GOTO1440ELSEGDT0147 
0 

1420 IFMIDS (A$,9,12="-"THENIFMIDS (AS, 14, 1)="/"THENIFMIDS (AS, 17,1) 
="/"GOTD1480ELSEBOTO1470 

1430 PRINT"Erreur de syntaxe. ": 60T020 

1440 PRINT: [=4: 60SUB200 

1450 XS=NIDS (AS, 10, 2) : 6OSUB27 0: IFX=P£EK (NL) GOT 01 460ELSEGOTO1 470 
1460 1$=HIDS (AS, 13,2) : GOSUR270:POKENL, X:COLORS: PRINTHEXS (NL) +4" : 
:COLOR2: PRINTHEXS (X) : GOTO20 

1470 PRINT'Erreur de contenu nesvire. ":60T020 

1480 [=4: COSUB200: ND=N 

1490 1=9:60SUB200: NF=N : X$=MIDS$ (AS, 15, 2) : EOSUB270: Y=X : X$=MIDS (AS, 
18, 2) :60SUB270 

1500 FORN=ND TO MN 

1510 IFY=PEEK (NL) THENPUKENL, X: COLOR S:PRINTHEXS{NL) +" "2: COLORZ:PR 
INTHEXS (X) 

1520 NEXTN 

1530 GOTO20 

1592 ? 

1594 ? 

1595 * -- SUPPRIME -- 

1598 ? 

159% 

1600 IFMIDS(AS,4,1)=" "GOTDIB10ELSEPRINT "Erreur de syntaxe. ":G0TO 
20 

1810 1=4:60SUB200 
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1620 POKEN.,&H12 

1630 GOTO?( 

1792 ? 

1794 ? 

1795 ? -- MENU — 

1798 ? 

1798 

1800 CLS:LOCATES. 1, O:COLORI : ATTRB1.1:PRINT"98 EDITEUR $4":ATTREO, 
(à 

1810 LOCATEO. 4: COLORO, 3: PRINT" 1"::COLOR2.4: PRINT" - ORG choix de 
l’origine." 

1820 PRINT: COLORO, ?: PRINT"2" : : COLOR?, 4: PRINT" - CHA change un oct 
et" 

1820 PRINT: COLORO, 3: PRINT"3":: COLOR2, 4: PRINT" - SUP supprime un 0 
ctet" 

1840 PRINT: COLORO, ::PRINT"4":: COLDR2, 4: PRINT" - FIN revient au BA 
SIC" 

1850 PRINT: COLORO. 3: PRINT"S": : COLOR2, 4: PRINT" - LIS liste un prog 
rase" 

1860 PRINT: CDLORO, 3:PRINT"6": : COLOR2, 4: PRINT" - CHE cherche un oc 
tet" 

1870 PRINT :COLORO. 7: PRINT"7": : COLOR2, 4: PRINT" - REC recopie un gr 
oupe de lignes" 

1880 PRINT: COLOFO, Z:PRINT"B":: COLOR?,4: PRINT" - DEP deplace un gr 


oupe de lignes" 

1890 PRINT: COLORO, T:PRINT"9": : COLOR2. 4: PRINT" - &H choisit une li 

one” 

1900 PRINT: COLDRO, T:PRINT"A":: COLOR2, 4: PRINT" - MENU appel du aen 

v' 

1910 LOCATEO. 24: PRINT" Tapez votre choix {0 pour sortir): “::N#=IN 

PUTS (1) :CLS 

1912 IFNS="0"THENTETURN 

1914 IFNS="1"THENPRINT"ORG 8H8000 (ENTREE) ":PRINT:PRINT'Vous tape 
2 alors votre progranse ligne par ligne sans espace entre les oc 

tets et en faisant ENTRÉE à la fin de chaque ligne. ":PRINT:FRINT 
“La nuserotation des lignes est autosati-que.*:60T01990 

1916 IFNS="2" THENPRINT'CHA 8000/E4/5C (ENTREE) ":PRINT : PRINT"Cette 
instruction resplacera a la ligne #HB000 l’octet &HE4 var LHSC,." 
PRINT" Si KHE4 n’occupe pas la case AHB000 , rien n’est change 
et l’editeur envoit un nessage d'erreur." 

1918 IFNS="2"THENPRINT: PRINT" CHA BO1A-8050/E4/5C (ENTREE) ": PRINT: 

PRINT"De la ligne &HBOIA a La ligne &H8050  l’editeur resplace 

tous les octets KHE4 par LHC. *: 60101990 

1020 IFNS="3"THENPRINT'SUP 813F":PRINT:PRINT"Supprise la ligne &H 

813F.":PRINT"En fait l’octet a cette adresse est res-place par le 
code %H12 (NOF), code non operatoire.":60701990 
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1922 IFN$="4"THENPRINT"FIN": PRINT: PRINT "Permet le retour au BASIC 

.":60101990 

1924 IFNS="S"THENPRINT'LIS SUÜRN 8000-8100" :PRINT:PRINT"Permet de 

lister sur l’ecran le contenu nenoire de l’adresse LH8000 à l’adr 

esse &H8100.":PRINT:PRINT"LIS LPRT 8000-8100" :PRINT:PRINT"Li stage 

sur l’isprisante de &HB000 à  LHB100":60T01990 

1925 IFNS="6" THENPRINT"CHE 803B-8100/86":PRINT:PRINT"Cherche tout 

es les lignes cosprises entre &HB0ZB et &H8100 dont le conten 

u est &H86.":PRINT:PRINT"Ces nuneros de ligne sont listes sur 

l’ecran.": 60101990 

1928 IFN$="7"THENPRINT"REC 8000-8100/8200":PRINT:PRINT"Recopie 1° 

ensesble des lignes conprises entre &H8000 et #HB100 a oartir de 

la ligne #H8200. ":60T01990 

1930 IFN$="B"THENPRINT"DEP 8000-8100/8020":PRINT:PRINT"Deolace le 

bloc d’instructions contenuesentre &HB000 et &HB100 a partir de 
&H9020. * : 60701990 

1972 IFN$="9"THENPRINT*&HB10D":PRINT:PRINT "Permet d’ecrire des co 

des a partir de laligne &H810D°:G0T01990 

1924 IFNS="A"THENPRINT"MENU": PRINT: PRINT"Renvoit au MENU": G0TD199 

0 

194 PRINT'Erreur de coamande. Rappelez le MENU. ":60T01990 

1990 PRINT:PRINT:PRINT"Tapez votre comsande apres l’etoile à :":P 

RINT: PRINT: RETURN 

1992 ? 

1904 ? 

1995 ? -- LISTE — 

1996 

1908 ? 

2000 [FMIDS(A$,4,1)=" "THENIFMIDS (AS, 14,1)="-"GOTOZ2010ELSEPRINT"E 

rreur de syntaxe": EDT020 

2010 IFMIDS (AS, 3,4)="SCRN"THENOPEN" 0", #1," SCRN: "ELSEOPEN"0",#1,"L 

PRT: (80) 

2020 1=9:60SUB200: ND=ML : 1=14: GOSUB200:NF=NL 

2060 FOR N=ND TD NF STEPE 

2065 COLORIS: PRINT#,HEXS(NL)+" "2 : COLOR? 

2070 FORX=0T07 


2075 XS=HEXS(PEE INL+#X) } : IFLEN(XS)=1 THENXS="0"+XS 
2080 PRINTR1,X$+" 

2090  NEXTX 

2100  PRINT#I,CHRS(13) 

2110 NEXTNL 

2120 CLOSE:60T020 

19 ? 

2194 ? 
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2195 ? -- CHRCHÆ -- 

219% ? 

2198 ’ 

2200 IFMIDS(A$,4,1)=" "THENIFMIDS(A$,9,1)="-"THENIFMIDS(A$.14,1)= 
"/"G0T02210ELSEPRINT"Erreur de syntaxe. ":B0TD20 
2210 PRINT: 1=4:60SUB200:ND=NL 

2220 1=9:60SUB200: NF=M 

2230 X$=MIDS(AS, 15, 2) : 6OSUB270 

2240 FORN=ND TO NF 

2250 Y=PEEK(N) 

2260 IFY=X THEN COLDRS:PRINTHEXS EN) +" ": :COLDR2: PRINTHEXS (Y) 
2270 NEXTN 

2280 607020 

2392 ? 

2394 ? 

2395 ? — RECOPIE -- 

2396 ? 

2398 

2400 IFMIDS(A$,4,1)=" "THENIFMIDS(A$,9,1)="-"THENIFMIDS (AS, 14,1)= 
"/"B0T02410ELSEPRINT"Erreur de syntaxe. ":6OTD20 
2410 PRINT: 1=4: 60SUB200: ND=NL 

2420 1=9:60SUB200:NF=N 

2470 1-14: 60SUB200: NA=NL 

2440 FORN=ND T0 NF 

2450 POKENA, PEEK IN) : NA=NA+1 

2460 NEXTN 

2470 GOTU20 

2592 ? 

2394 ? 

2595 * — DEPLACE -- 

259% ? 

298 ? 

2600 IFMIDS(AS$,4,1)=" "THENIFHIDS(AS,9,1)="-"THENIFMIDS (AS, 14, 1)= 
“/*GOTO2610ELSEPRINT" Erreur de syntaxe. ": 0TO20 
2510 PRINT: 1=4:G0SUB200:ND=NL 

2b20 1=9:60SUB200:NF=AL 

2630 1=14:60SUB200:NA=NL : NB=NL : NC=NB+NF -ND 

2640 IFNADND THENNA=NA+NF-ND: 60OT02700 

2650 FORNL=ND TO NF 

2660 POKENA, PEEK (NL) : NA=NA+1 

2670 NEXTNL:ND=NB:NF=NC : PEN" 0", #1, "SERN: ": GOTO2060 
2700 FORNL=NF TO ND STEP-1 

2710 POKENA,PEEK (NL) : NA=NA-1 

2720 NEXTNL:ND=NB: NF =NC: OPEN" 0",#1, "SCRN: ": 60702060 
Z792 ? 

2794 


2795 * — LIGNE &H -- 
2796 * 

219 ” 

2800 IFMIDS(AS,3,1)=" “THENPRINT"Erreur de syntaxe. ":E0T020 
2810 1=2:60SUB200 

2820 60TDI020 


III. Exemple 


Si l’on veut rentrer en mémoire le programme et le sous-programme ci- 
dessous : 


8999 PROG LDX #9 8E 00 09 
EDY #92 19 8E 09 SA 
JSR GRAPH BD 81 09 
RTS 39 
8199 GRAPH PSHS U, X, Y, B, A 34 76 
CLR CHDRAW 7F 68 41 


On tapera derrière * : ORG &H8009 

On verra alors sur l’écran : 8000 

et on tapera 8E0099 (ENTRÉE), qui s’écrira : 
8000 8E 09 09 
8003 


Puis on tape : 
I08E0805A (ENTRÉE) — 8093 10 8E 0 5A 


8007 
BD81@9 (ENTRÉE) —— 8997 BD 81 @9 
809A 
39 (ENTRÉE) 800A 39 
800B 
(ENTRÉE) * 
&H8109 (ENTRÉE) — *&H81@9 
8109 


Taper alors la suite du programme. 
L’écran complet aura alors l’allure suivante : 


*ORG 8090 

8000 8E 00 00 
8093 19 8E 09 SA 
8097 BD 81 @ 
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8O0A 39 

800B 

*&H8109 

8100 34 76 

8192 — — etc. 


IV. Adresses d’origine 


Le programme ÉDITEUR dont le listing est publié occupe environ 6 K octets 
en RAM, ce qui oblige à travailler avec l’extension 16 K. 

Afin de pouvoir travailler sous BASIC avec une unité centrale de 8 k RAM, 
une version de cet ÉDITEUR peut être tapée en supprimant tous les commen- 
taires ainsi que les lignes du MENU de 1899 à 1998 et la ligne 11 devenue inu- 
tile. 


Le programme ainsi réduit (appelé EDIT sur la cassette associé à cet ouvrage) 
n’occupe plus que 3 k octets en RAM, ce qui permet d’implanter du langage 
machine à partir de &H7300. 


Il faut donc taper ligne 19, CLEAR&H72FF au lieu de &H9FFF. 


Les listings de cet ouvrage ont été tapés avec les 16 k d’extension, et les pro- 
grammes implantés à partir de ORG = &HA968. 


Si on change l’origine, il faut surtout ne pas oublier de modifier les adresses 
absolues. 


XXX PROGRAMME EDIT XXX 


16 CLS:SCREEN?, 4, 4: CLEAR, SH72FF 

20 COLORG:FRINT: PRINT" #" 2: LINE INPUTAS:LE=LEFTS (A$,3) : PRINT: COLDRZ 
30 1FL$="ORG"ORLS= "or a"60TO100C 

EC IFL$="CHA"DFL$=" cha" GOTO1 400 

60 IFL$="SUP"ORLS= "sup "GOTO1 609 

9 ]FLE="FIN"ORLS=" fin" THENEND 

85 IFL$="LIS"ORLS="] is" 60102000 

00 IFL$="CHE"ORL$="che"60TOZ290 

100 IFL$="REC"ORLS="r ec "60102400 

110 IFL$="DEP"ORL$=" den"60T02600 

120 IFLEFTS (AS. 2)="RH"ORLEFTS (AS, 2) ="&h"6DTO2800 

1:0 IFA$="MENU"ORAS=" nenu"THENGOSUR1 800: PRINT: PRINT : GUTO20 
150 PRINT'Instruction inexistante. ":60T020 

20(+ FORN=1TO4 

210 DS=HIDS (AS, IN, 1) : GOSUB250 

220 NEXTN 

730 NL=D(11#4096+D (2) 3256+D(7)16#D(4) 


240 RETURN 

250 IF ASC(D$)CbO THEN DIN)=VAL (DS) ELSE DIN) =<ASC (DS) -55 

2b0 RETURN 

270 FORN=1T0? 

280 DS=HIDS(XS,N, 1) : GOSUB250 

290 NEXTN 

291 X=D(1)t16+D(2) :RETURN 

300 ES=INPUTS (1) : RETURN 

1000 IFMID$(A$,4,1)=" *GOTOO10ELSEPRINT "Erreur de syntaxe. ": EOTO 
20 

1010 IFMIDS(AS, 5, 21 =" &H*THENI=6: GOSUB200EL SENL =VAL (RIGHTS (AS, LENC 
A$}-4)) 

1020 COLOR3:PRINTHEXS(NL)+" "2 : COLDR? 

1030 GOSUBT00 

1040 IF ES$=CHR$(13) GDTO1100 ELSE X$=E$:PRINTES: 

1050 GOSUBTO0: X$=X$+E$:PRINTES+" ": : GOSUR270:POKENL, X:NL=NL +1: X$= 
1060 60SUBT00 

1070 IFES=CHRS(13) THENPRINTES : EOTD1020ELSEX$=ES$ : PRINTES: : GOT01 050 
1100 PRINT 

1140 GOTD20 

1400 IFMIDS(A$,4,1)=" "GOTO1410ELSEGOTD1430 

1410 IFMIDS(A$,9,1)="/"THENIFMIDS (AS, 12,1)="/"GOTO1440ELSEGOTD143 
0 

1420 IFMIDS(A$, 9, 1)="-"TRENIFMIDS(AS,14,1)="/"THENIFMIDS (AS, 17,1) 
=°/"60TD1480ELSE60T01430 

1450 PRINT"Erreur de syntaxe. ":60T020 

1440 PRINT: 1=4:G0SUB200 

1450 X$=MIDS (AS, 10, 2) :60SUB270: IFX=PEEK (NL) GOTO1460EL SEGOT 01470 
1460 X$=HIDS (AS, LS, 2) :GOSUR270:POKENL, X:COLOR3:PRINTHEXS (NL)+" ". 
:COLDR2:PRINTHEXS (X) : GOTD20 

1470 PRINT'"Erreur de contenu œenvire.":G0T020 

1480 1=4:60SUB200: ND=NL 

1490 1=9:60SUB200: NF =NL: X$=MIDS (AS, 15, 2} : BOSUB270: Y=X: X$=-MIDS (AS. 
18, 2) :60SUR270 

1500 FORNL=ND TO NF 

1510 IFY=PEEK (NL) THENPOKENL, X: COLOR3:PRINTHEXS (NL)+" "::COLOR2:PR 
INTHEXS (X) 

1520 NEXTNL 

1530 607020 

1600 IFMIDS(A$,4,1)=" "GOTDIGIOELSEPRINT "Erreur de syntaxe. ": 60TO 
20 

1810 I=4:G60SUB200 

1620 POKENL, &H12? 

1870 EDTO20 

2000 IFMIDS(A$,4,1)=" "THENIFHIDS (A$,14,1)="-"GOTO2010ELSEPRINT"E 
rreur de syntaxe": 60T020 
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2010 IFMIDS(AE,S,4)="CCRN"THENDPEN"0", #1, "SCRN: "ELSEOPEN"0",81,°L 
PRT: (80) " 

2020 1=9:60SUB200: ND=NL : 1=14: GOSUB200: NF=NL 

2040 FOR NL=ND TO NF STEPE 

MES COLORT:PRINTHI.HEXS(M)+* "3; : COLOR? 

2070 FORX=CTO? 

207$ XS=HEXS(PEEK(NL4X)):IFLEN(X$)=1 THENX#="0"+X$ 

2080 PRINT#1,X$+" ": 

2090 NEXTX 

2100 PRINT#1.CHR$(13) 

2110 NEXTAL 

2120 CLOSE: 60T020 

2200 IFMIDS(A$,4,1)=" "THENIFMIDE(A$.9,1)="-"THENIFMIDS (AS, 14,1)= 
"/*60OTO221CELSEPRINT"Erreur de syntaxe. ":E0T020 

2219 PRINT: 1=4:60SUB200: ND=NL 

2220 1=9:G0SUB200: MF =M 

2270 XE-HIDS (A6, 15,2) : GOSUR27 

2240 FORN=NC TO NF 

2250 Y=PEEK (N) 

2260 IFY=X THEN COLORS:PRINTHEXS(N)+" ":; : COLOR?:PRINTHEXS (Y) 
2270 MEXTN 

2280 60T020 

2400 IFMIDS(A$,4,1)=" "THENIFMIDS(A$,9,1)="-"THENIFHIDS (AS, 14, 1)= 
“/*G0T0241CELSEPRINT'Erreur de syntaxe. ":60T020 

2410 PRINT: 1=4;: GOSUB200:ND=NL 

2420 1=9:60SUB200: NF=NL 

2470 1=14:60SUR200: NA=N 

2440 FORN=ND TD NF 

2450 POKENA,PEEX (N) : NA=NA+1 

2460 NEXTN 

2470 GOTD20 

2600 IFMIDS(A$,4,1)=" "THENIFMIDS (A$,9,1)="-"THENIFMIDS(A$,14,1)= 
"/2G0T02610ELSEPRINT"Erreur de syntaxe, ":G0TO20 

ZH19 PRINT: 1=4:60SUB290:ND=NL 

2620 1=9:60SUB200: NF=N 

2bE0 1=14: 60SUB290:NA=NL : NE=NL : NC=NB+NF -ND 

2540 IFNA>ND THENNA=NA+#NF -ND: G0TC2700 

2850 FORM=ND TO NW 

2660 POKENA.PEEK (NL } : NA=NA+] 

2670 NEXTNL : ND=NB: NF=NC: OPEN"0", #81, "SCRN: ": 60T02080 

2700 FORNLENF TO ND STEP-1 

2710 POKENA.PEEK NL} : NA=NA-1 

2720 NEXTNL:ND=NB: NF=NC: OPEN" 0", #1, "SCRN: “: GOTO2065 

2800 IFMIDS(A$,3,1)=" "THENPRINT'Erreur de syntaxe, “:G0TO20 
2810 1=2:60SUB200 

2829 60101029 
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Chapitre 2 


Dessiner sur l’écran 


I. Les différents accès graphiques 


Le moniteur du TO7 contient cinq sous-programmes qui permettent de tra- 
vailler sur l’écran du téléviseur : 


PUTd implanté en &HE883 gère le curseur, les couleurs, le type d'affichage, 
l'effacement de l’écran… 


Si l’on souhaite initialiser son écran en langage machine, il faut alors utiliser 
ce sous-programme. 
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Tous les paramètres doivent être envoyés dans l’accumulateur B avant l’appel 
du PUTC. 


La définition des couleurs du TOUR, du FOND et de la FORME se fait après 
passage d’une commande ESC (&H1B). 


Les couleurs sont numérotées de 9 à 7 dans l’ordre suivant : 


NOIR ROUGE VERT JAUNE BLEU MAGENTA CYAN BLANC 
0 l 2 3 4 5 6 7 


La FORME est caractérisée par &H49 | 
Le FOND est caractérisé par  &H59 auquel on ajoute la couleur 
Le TOUR est caractérisé par  &H69 


Exemple : Pour créer un FOND BLEU, on écrira : 
LETOUTON ETES DORE CEE UE UTE ELSTENTETET 
FROGRAMME DE DEFINITION DE COULEUR 


FOND ELEL 


+ dt 26 26 +4 je + 
2e > +6 6 ve 2 7 


LELHTT EST TETEN CEE TSTTNTIS TINTIN 


EBOZ FUTC EQL $EBQT 
9004 HLEU  EQU 504 
0980 FOND EQU  #5û 
qûiB ESC  EQU S1R 


AGO ORE  $ADO( 


400 74 JF  DEBUT FSHS U,Y,X,DP,D,CC 


BG? Ce ÎE LDE #5c 

GoG4 BC EBOS JSR  PUTE 

BOGT CE © LDE  #FOND+BLEL 

1969 BC EZ0 JSR  PUTC 

BOOT ZE ET PULS LU, Y.X,DP, DCE, PT 
1000 END 


66900 Total Error: 
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Pour effacer l’écran (équivalent à RAZ), il faut mettre FF (&H@C) dans 
laccumulateur B. 


Pour effacer le curseur, il faut mettre DC4 (&H14) dans B. 
Le plus simple consiste donc à créer une table des divers contenus de l’accu- 


mulateur B, dans l’ordre où on veut les passer à PUTC. 


Cette table sera terminée par un EOT (End of texte = &H@4). Ce qui conduit 
au sous-programme d’initialisation suivant, que l’on peut reloger à l’adresse 
de son choix. 


Mettre dans U 
l'adresse de TABLE 


Charger B avec le 
contenu pointé par 


puis incrémenter U 
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AGOC 


000 
Bn02 
AQCE 
4097 
X09 
ACOE 
AGQE 
AÛ1Q 


a012 
8o1? 
(14 
ROIS 
1015 
AC17 
1619 
AC19 


A0 1A 


54 
CE 
£b 
C1 
27 
ED 
20 


TT 


ES 


£B03 


18 
44 
‘8 
S? 
‘8 
£9 
oc 
14 
04 


090€ 


DORENSANAARENTNANNTTRNNNTANINNIANANIINT 


Û ï 
1 PROGRAMME D’ INITIALISATION 1 
! ï 
1 DE L'ECRAN | 
Î i 
Î FORME : BLEUE 1 
î FOND : JAUNE î 
1 TOUR : NOIR 1 
l t 
1 ECRAN & CURSEUR EFFACES Li 
; t 
LELESEETS RESTE TON TETE STENTETE DETTE T)) 


PUTC EQU  $E803 


ORB  $A00C 


ECRAN FSHS  U,Y,X, DP,D,CC 


LOU  #TABLE 
DEBUT LDB .U+ 

CHPB 4 

BEQ FIN 

JSR  PUTC 

ERA  DEBUT 


FIN PULS U,Y,X,DP,D,CC.PC 


TABLE FCB  $1B ESC 
FCB #44 FORME BLEUE 
FCB ÿ1B ESC 
FCB $5? FOND JAUXE 
FCB $1B ESC 
FCB $60 TOUR NOIR 
FCB 40€ RAI 
FCE #14 EFF DU CURSEUR 
FCB 504 EOT 


96000 Total Errors 
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On se reportera au chapitre spécial TO7-79 où !’ont trouvera la gestion de 
PUTC avec les 16 couleurs, … 


EHPilimplanté en &HE833 affiche un caractère dans les couleurs courantes, à 
un endroit dont les coordonnées sont : 

— dans le registre X pour la colonne (numérotée de 1 à 48), 

— dans le registre Y pour la ligne (numérotée de 8 à 24). 


Le caractère doit préalablement avoir été rangé dans le registre CHDRAW 
situé en &H6041. 


Ce peut être un caractère standard ou un caractère graphique utilisateur. Dans 
ce dernier cas, les caractères ayant été définis à l’aide de l’instruction BASIC, 
DEFGRS$(n), le registre CHDRAVW doit contenir la valeur (&H8@ + n) pour le 
caractère numéro n. 


Si les GR$ ont été définis en assembleur et rangés dans une table d’adresse 
XXXX, alors il faut également ranger cette adresse dans le pointeur 
USERAF = &H692D, 682E. 


On trouvera des exemples de ces deux méthodes dans la suite de l’ouvrage. 


DRAW|implanté en &HES848C affiche le long d’une droite, le caractère contenu 
par le registre CHDRAW. La droite s’étend de la position précédente à la case 
de coordonnées X, Ÿ contenues dans : 

— le registre X pour la colonne (de 1 à 49) 

— le registre Y pour la ligne (de @ à 24). 


Si CHDRAVW contient @Q alors la droite est tracée en mode graphique, entre le 
point précédent et celui dont les coordonnées sont contenues dans : 

— le registre X pour la colonne (numérotée de @ à 319) 

— le registre Y pour la ligne (numérotée de @ à 199). 


On trace alors une droite de points. 


implanté en &HE89F affiche un point graphique à l’endroit dont les 
coordonnées colonne et ligne sont respectivement dans les registres X (de 9 à 
319) et Y (de 9 à 199). 

La couleur du point affiché peut être une couleur de fond ou de forme. Elle 
doit être placée dans le registre FORME d’adresse &H6938. 


Les codes couleurs hexadécimaux sont les suivants : 


NOIR ROUGE VERT JAUNE BLEU MAGEN- CYAN BLANC 


TA 
FORME 00 g1 02 93 94 95 96 07 
FOND FF FE FD FC FB FA F9 F8 


AVANT D’APPELER PLOT, IL FAUT METTRE CHDRAVW A 88 


Errimplanté en &HE821, ce sous-programme ramène dans l’accumulateur 
B le code (de —8 à + 7) de la couleur du point dont on lui a passé les coordon- 
nées X, (de 9 à 319) et Y (de @ à 199). 
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II. Cas d’un dessin défini par l'utilisateur 


1 CAS : Le dessin est constitué d’un GRS. 


Le dessin tient donc dans une matrice 8 x 8, et l’on peut procéder de la façon 
suivante : 

— on définit le GR$ dans la partie d’initialisation du BASIC. 

— on l’implante à l’endroit souhaité par CHPL. 


Exemple : DESSIN D’UNE RAQUETTE 


Une raquette de ping-pong verticale peut par exemple être dessinée comme ci- 
dessous : 


D D DS D) WW D D LU 


ORDRE D’'EMPILEMENT 


On souhaite l’implanter colonne 1, ligne 12. La raquette est blanche sur fond 
vert. La fenêtre est verte et le tour est noir : 


10 * REXKLKENXKRELERRTRLHINNNX 
20Q ? * L 
20 ? x INITIALISATION x 
40 * BASIC x 
50 ? * X 
80 * X RAC KOKE TONER ON ONCE IC RO K 
70 * 
80 * 
70 ” 


100 SCREEN7.2,0:CLS 

110 LOCATEO,0,0 

120 CLEAR, 1 

130 DEFGR$ (0)=3,3,3,3,3,3,3,3 
140 EXEC&HAOOO 

150 GOTOS0 

160 END 
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LÉYLELEITANEUTENNEEEEEE EE BEL E CEE EE EE T 


Î { 
? DESSIN D’UNE RAQUETTE SUR ECRAK | 
t L 
t Î 
Î COLONNE 1 Î 
1 Î 
ÿ LIGNE 12 Li 
Î } 
LÉSERAALEELEESARRENELERTESANSENENAAIINLL 
6041 CHDRAN EQU $604: 
E8BTS CHPL  EQU $ERSS 
0001 COL EGU ! 
900€ LIG EQU 12 
0080 GRDO EGU $90 
A000 RG $A000 
AO00 34 7F  RAQUET PSHS U,Y,X,DP,D.CC 
A002 BE  O001 LDX #CoL 
A00S 108€ 000€ LDY #LIE 
A009 C& 80 LDB #6RDO 
ACOB F7 4041 STB CHDRAK 
AODE BD EBXS JR CHPL 
AO! 35 FF PULS U,Y,X,DP,D,CC,PC 


Mais on peut également initialiser l’écran en assembleur et implanter le GRS à 
une adresse connue, puis ranger la valeur de cette adresse dans le pointeur 
USERAF en &H682D. 


Si deux GRS sont définis, le contenu de USERAF sera décrémenté de 8, etc. 
(On se repportera à l’ouvrage du même auteur ‘MAÎTRISEZ LE TO7” page 


60). 


Le programme sera alors le suivant, qui replace la même raquette que ci- 
dessus et ajoute une balle au centre de l’écran, colonne 24, ligne 12. 
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- 16 8 4 2 1! 


LRRLRUIRATANARSNNRESARRNNNNNRNNNIATAEIT 


assembleur: 


curseur avant 


La TAQUETTE 


La BALLE 


2 20 2 ve Je “PU Des "0  S de At “ LR 


L'ecran est efface ainsi que : 


procramre initialise l'ecran er 
8 


FOND en VEFT 
FORME en BLANC 
TOUR en NGIF 


+ 
mn 


de dessiner : 


PAL | 17 19 
LES 


ul ay 40 


COL 20, LIE :2 


LERREDINIRENRRERNRENERENTERRANENTENNES 


Z8û OUTC QU #EBOT 

SQ2D USERAF EGL #LOÛT 

co41 CHDRAW EGU $604! 

ERTT CHPL ED  $EETT 

01 COLEAQ QU ! 

QGAC LIGRAC EGL 12 

2914 [OLEAL EBU CC 

MOQC LIGRAL EGL 12 

2590 GRDO EQU +80 

Q081 GRDI  EQL $g: 

1600 2F6 £A900 

aeoë 24 JF BALLE PSHS U,Y.X DFE 

9002 CE  A03E LDU  #TABLE 

AOGE EE COQ  DEEUT LDE JU Lire E dans TAELE 
9607 C1 4 CMPB MW B=417 

AûQ9 27 9 FER UITE Qui. alors cuitter 
EGOB BC EB03 JSF PUTC Non, 

AO0E 20 FE ERÊ DEBUT alors reconrencer 
4010 CE  A07F SUITE LOU  #DEBER Debut ces SK$ 
A0 FF  602D STU  USERAE 


+ 0e js DR 0e DR ep pe ot “HE Det De ne ve 
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ROIS SE 9001 cDX  #COLRAG On place ia 

AG19 1OBE ONCE LDY  #LIBRAB raquette er 1,12 
4019 CE 90 LDB  #6RDÙ 

ACIF ET  £041 STE  CHDRAW On la dessine 
A022 BD EBIT JSR  CHPL 


AC2S BE 0014 LDX #COLBAL On place ie 
BO28 10BE O00C LOV #LIGBA balle en 20,12 
A02C CE 81 LDE  HGRC: 

N0ZE F7 6041 STB  CHDRAH 

ROZ! BL ERBZ! JSF CHPL On la dessine 


Enreor er 


An ve cc Clu € IT Y AC 
ACSS LL Pons dire neoe DO ET 87 

AO Te :E  TOHZ CE fit 22C 

EG Tr? t° DUE $4 TUE NOTE 
M7 ‘B EE $ia ZSC 

ACIS SE ÊTE to FOND VERT 
ACTA ‘8 ICE £{p LC 

TE u al + ï d ne 
PQTE g FCE 517 EDRME CLANCEH 
ACTE pe CE SCC 087 

BCTE i4 CE RE ETFACE LE CUESEUR 
AÜTE 34 SUR £4 Enr 

AAT 1° emre + 

BTE 17 SERGE FCE ï 
40 de SES ; 
CHE ÊT FCE à 

n A7 AT Cr F 

42 GT ER 7 SAGUETTE 
AGgC ce CE x 
4044 35 FCE 5 
ASE QT PE = 


A04s 33 ŒE 7 


RCA? 1E FCE gif 
3048 FE FER Xe 


A94S JE FCB'  $e 
4C4A FF FCE $FE PALLE 
AO4E FE FCE  gFr 
A04c *È FCB $7E 
ACL É FCE $7E 
ÊO4E 18 CE #19 


000 ENT 
M090 Total Errors 
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2e CAS : Le dessin est constitué de plusieurs GR. 
Prenons l’exemple du canard dessiné ci-dessous : 


Ce dessin est constitué de 5 GR$ et occupe donc 5 cases réelles. 


Nous allons fabriquer une table contenant les éléments suivants : 
— ÿ si une case d’écran ne contient pas de GR$. 

— ($89+ n) dans la case contenant le GR$(n). 

— 1 pour indiquer la fin d’une ligne. 

— 2 pour indiquer la fin du dessin. 


Exemple : Pour le dessin du canard, la table est : 


CANARD 49, 89, 81, O1 
82, 83, 84, 02 


Puis nous allons fabriquer un sous-programme dont le rôle sera le suivant : 
_— Sauvegarder les coordonnées de départ dans la pile systèmes, 

— Lire le 1° élément de la table, 

__ Si cet élément est 99, alors passer au suivant après avoir incréminé X 
(compteur de colonne), 

__ Si cet élément est un GR$, alors l’implanter sur l’écran à l’adresse X, Y, 
puis incrémenter X, et passer au suivant, 

__ Si cet élément est 1, alors redonner à X la valeur de l’abscisse de départ ran- 
gée dans la pile S, puis incrémenter Y (compteur de lignes) et passer à l’élé- 
ment suivant, 

__ Si cet élément est 2, alors dépiler X, Y deS et revenir au programme princi- 
pal. 
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On suppose que lors de l’appel de ce sous-programme, les régistres X et Y con- 
tiennent les valeurs de l’ABSCISSE et de l'ORDONNÉE de la case en haut et 
à gauche du dessin, et que le registre U contient l’adresse de la table 
CANARD. 


Sauvegarde de 
U, Y, X,B et A 


Charger dans Acc A 
l'élément pointé 
par U. 

Puis incrémenter U 


OUI 


Récupérer sur S 


NON U, Y. X,B, A et PC 


NON 


Recharger la 
valeur de X 
rangée dans S 


NON 


Ranger A 
dans CHDRAW 


CHPLS$ | 
Incrémenter Y 


30 


EMPILAGE & DÉPILAGE : On rappelle que l'instruction PSHS range sur la 
pile système S les registres et accumulateurs choisis par l'utilisateur. 


Le POST-OCTET à l'instruction PSHS a la structure suivante : 


PC U X Y DP B A CC 


CS 


Donc pour empiler X et À, on écrira : 

PSHS X, A soit &H34, &H22 

Pour lire la valeur de A dans la pile, on pourra faire : 
LDA 49,S mode indexé (S) soit &HA6, &H6. 


Pour lire la valeur de X dans la pile, il faudra faire : 
LDX1,S SOIT &HAE, &H61 


D'autre part lors d’un appel de sous-programme (par JSR ou BSR), le 6899 
range sur la pile la valeur de retour du compteur programme PC. On peut 
donc éviter l’instruction RTS de retour de S-P en incluant dans le dépilage le 
compteur programme PC (voir exemple ci-après). 


Le sous-programme DESSI sera alors le suivant : 


DESSIN EEE 


; L 
ÿ SCUS-SROGRAMME LEGS $A100 : Î 
} ] 
1 Ze 3915-9r2granne pernet Le dessin 
t c'une table de GR$ contenant: L] 
Î ï 
Ï - Q s'il 97 à 9as de SR$ 1 
t ; 
Î - i er. fin de ligne ] 
Î LI 
} - Ler fin de table L 
L Î 
Î - {$@0+tn) oour le GRE(ni j 
Î ! 
? SNTREES : ; 
%====22=  X contient le No de CU 
; Î 
t 2, és SLIE 4 
î Ï 
1 AU l'Adr de TABLE 1 
DÉRETRRDETEENNENRRENERERIATENATTIRSEIANT 
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2041 CHDRAW EDU  $6041 
ESIT CHP£ EQU $EBST 
1100 ORG  $A100 


A100 34 76 DESSI PSHS  L,V.X.l On sauve 
8102 Ab CO DEBUT LDA  .U+ Charger avec SR$ 


A104 Bi 02 : CNPA #2 Fin de TABLE ” 
A106 27 REG .CIN Qui. alors FIN 
A108 &1 O1 CHPA #: Fin de ligne ©” 
A10A 26  Oë BNE  GRD Non alors GR$ 

AIOC AE 62 LDX 248 Retour colonne det 
A1CE 51 21 LEAY  1,Y Saut d’une ligne 
A110 20 FC BRA  DEBUT  Reconmence” 

A112 91 00 GRD CMPA Case vide ? 

A114 27 O6 REG  RET Qui, alors suite 
4118 B7 6041 STA  CHDRAW Ranger À 

A119 ED EB3: JSK  CHPL Dessiner ER$ 

A11C 30 O1 PET LEAX 1,X Bvancer d’une case 
ALIE 20 E? BRA  DEBUT Retourner au debut 


A1ZO ES F6 FIN  FULS U,Y.X.D,PC On recupers 


A122 09 TABLE FCE #0 


A12? sc FCE $eC 
1124 Bi FCR  $Bl 
MZ 01 FCE  $0: 
A126 82 FCP  $82 
A127 CM FCE $4 
A128 84 FCB 564 
A129 0° FCE $02 
2000 END 


00000 Total Error: 


Le programme complet du dessin du canard comportera donc : 
1. L’initialisation BASIC 
:0 SCREEN?2, 6, O: CLS: RDXF (O, 112)2-(319,199).5 


20 LOCATEO, CO. 0 
30 CLEAR. ,5 


40 DEFGRS$ (0)=0,0,0,0,0,0,3,3 
SO DEFGR$ (1)=0,0,0,0,0,192,224,254 
60 DEFGRS$(2)=0,0,1,15,127,255, 62, 31 
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70 DEFGRS$ (3)=3,1,129,255,255, 255,255, 255 

80 DEFGRS(4)=224,192,192,224,224, 224,224, 224 
90 EXEC&HAO0O | 
100 GOTO90 


2. Le programme principal implanté en &HA@99 (par exemple) 


LEE O DETENTE CID DE CNP DITS TON ET TENTE 


Î ; 
t Ce orcoramne dessine un CANARD er i 
{ =ol3nne 1, ligne 12. ï 
L ! 
Î il utilise le sous-orocramme À 
t DESS:, imolante en $K10C. } 
( t 


DUREE ES ETES NUS TAN SLIDE 


MOI CU EU 
QO0C LIE EU 12 


3060 2RG  5A009 


8909 24 JE CANARD PSGHE UV X,DF,E. CC 
3607 SE 9901 OX O# 


ROGE 108E OI LDV #LIE 

a609 CE 4122 LOU #TABLE 

AOOC ET  AIC£ JSF  DESS! 

AOF 3 SF BUS U,Y,X,DP,D,CL.PC 


3. Le sous-programme DESSI1 


2041 CHORAK EBU 694! 
CRT CHPE EM $EBIT 


DEUU DRE SA 
309 34 7h DESSI FCHS U.Y.K,D 
EI9Z &£ C9  DEBUT LDR Ut 
3104 3, 6 CMPA #2 
BiD£ 27 € BEE FIN 
H98 41 1 [RFA  #! 


RICA ZE BNE ER 
MIOC-AE 52 NX, 4#®© 

PISE 3 2: LEAUR er 

ANS 20 Fa EFA CEERUT 

ALI 27 O0 CRE CME 

AE SES TT 

ÊtIÉ ET  L6 STE CHEFAK 
M9 97 ÊGE JE HE 
BESSOS fi SEX  LERS 1,3 

ALIE 29 FE FIN PERS DERUI.C.E 


a122 5ù TABLE CCR $C9 
EREX ER FCE ER 
2124 31 EC9 $1 
fire 2: FCE ÉAB 
317 32 CCE #07 
Êi2? ER FCE LR 
ai T8 954 CCE 404 
fic Q[ FCE 02 
au ENC 
COON Tctai Errors 


IT. Cas d’un dessin par point 


La routine de dessin GRAPH sera implantée à la place de DESSI. Cette rou- 
tine est construite selon le même principe, avec les conventions suivantes : 


— #— point éteint 
— 1-— point allumé 
— 2 fin de ligne 
— 3—fin de table 


Dans ce cas, puisqu’on travaille en mode graphique il faut mettre CHDRAW 
à 90 avant d’appeler la routine PLOT. 
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Exemple : Dessin d’une mouche 


ABS 


La table MOUCHE sera donc : 

1,9,9,0,0,0,1,2 

1,1,9,9,0,1,1,2 

9,1,0,1,0,1,2 

9,9,1,1,1,2 

9,1,9,1,0,1,2 

9,0,1,1,1,2 

9,0,0,1,2 

9,0,0,1,3 

Le programme complet du dessin de la mouche sera donc construit avec : 


1. Le programme principal en &HAU90 


LULTEVOTO NT LEE ENTER ETS BEETETE ES) 


$ { 
} PROERAMME DE DESTIN C'UNE 1 

' 
MOUCHE 1 
{ k 
} FORME : BLEUE 1 
{ FOND : JAUNE i 
} TOUR : NOGF 1 
L t 
} ECRAN L CURCEUF EFFACEZ ' 
L t 
LETCHE COUDES EDITED ETS ENSAETTS 
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OT ALT EL 
A0O£ CRE 
3000 24 ZT MOUCHE 2SHS 
AOOZ CE ADF LEL 
100€ Es CO DEBUT ‘DE 
AO9? C1 04 CHPE 
AG 27 95 SD 
AOO BE EBO7 2SR 
AODE 20 C5 EFA 

0090 EL £ET 

EC 2IS SET 
A01O BE  O000 ELITE DK 
A01Z 10BE DOC DV 
Aoi7 CE  A12Z LOL 
a0tA ED  AICO JER 
ACID 3 FF PULE 
AIF !E INIT FC 
A020 44 FCE 
wa! CB 
ME 5 FO 
AZ IR CCE 
ROZ & FCE 
A02S OC FCE 
ROZ 14 FCE 
4027 04 CE 


fE807 


CAUUSS 

AY, X, DFD, CC 

#INIT 

4 + 

[24 

SUITE 

FUTT 

DEBUT 

{ 

92 

#coL Fdresse de Lë 
#LIS gremlere case 
#TABLE Table de noure 
GRAFH 
UV, DF, D, CC.PC 

$iE ESC 

#44 FORME BLEUE 
$1B ESC 

CRE FONC JAUNE 
#{t sct 

#60 TOUS NGIF 

$0C Fa7 

£14 EFF DU CLRGEUNT 
$C4 nT 


2. La routine GRAPH en &HA109 


BIO 
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LI 

L 

} 

; 

6941 CHDFRAK ECU 
ceCF AT OU 
DRE 


SOUC-PROGRAMME SFAPH, 


sig 


2E00F 


LE 


Ape . = 
sti 7a £  SRAFH 
BA TE Eng 

A1AE NL pi " 
LE de Cf GE 
47.7 « 2 

PES Ur AS 

da ‘€ 
HO, 0 

Von * mL 

SD LE 

AIG dE 

Maud 74 7 

PASS sé - 

FAUT CE 

Hide 2 . 

1147 2: 7 SOINT 
CS “à ._ = 
ar 97 Pal 

brie L = 

1-2 nr TOAE 

Ts _. vi 

Ra 7 FE eeY 
Fist 3 Gi RE 

w + ?. Le 

Sic 3 =J 

fan 7€ Te ETh 
A ÈS Ë da 


!V rm 


vases 


3. La TABLE de la mouche. 


3102 Fitt TABLE 


in 
£* 74 FA 

— RAT 
A Ÿ Eat à 

—. 

4 F4 
Ei:e rs 
3474 Far 
A1. HO 
FSI EURE 
147€ si 

ie 
£‘T’ CET Les 

se. ... 
ur T7 me) 

is te à 


MTS rit 
AUS desti 
r4+ a 
Li Te A7 
HIDE ré. 
1174 Afif 
2173 Nes 
AA%r Fit 
Fun vase 
AiTE nn 
de sl. 


+ " 
‘42 
f. La 
h11f 
41% 


338 1£ 
SL 9152 
DES 


FCE 


FLE 
ons 
FDE 


na 
r3 +3 
4 


à 


Lan) 


n 


Là PAL) 
FO en Ti rm 0 em 


n 


1°" 
E3 3 ra tir 
[aa Da 


à] 


na] 


ae] 


+" 


al 


#0106 


eng" 


CEA EE 
0069 
L EU He 
so 
soc 


7 
s0ctt 


| SARCSRS 


PTS 
this 
Eat 
sde. 
[Fall 
sil 


EAN 


Vues 


HAE | 


tn 


vues 


ETAHES 


CE 


n Là LL 
+7 3auvs 


Moce 3rafr1aus 


+ + mm. 
Zharger un 22m 


Est-ce le 1-7 


Fe FES …1- 
ll. al2 
Fin de ligne | 


“or, alors FOINT 
Estour c2358 


Zeszante de liine 


Frint suivart, 


” alpes + 
Gus, alcrs PE 

LR % ns 
Allumer ie sort 


| à - ,:4 ce 
LA3e Zj: vais 


Saint zu1vart, 


Er 


= 
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Bts 090: FLE soi 


AL SI Érui [PB  $9560 
154 Ga05 FDE . #900€ 
A! LE EUR SEP  $0157 


ja? EN! 


Les coordonnées de départ, ABS et ORD sont placées dans X et Y, et l’adresse 
de la TABLE dans U avant l’appel de la routine GRAPH. 


IV. Dessin d’un contour 


Toujours en mode graphique, une silhouette peut être dessinée à l’aide de seg- 
ments de droite. Il suffit pour cela de fixer par PLOT le point de départ, puis 
de lire dans une table les coordonnées successives des points suivants que l’on 
joint entre eux par DRAW. 


Une fin de trace peut être codée par $FFFF pour l’ordonnée 


ATTENTION : En mode graphique la couleur du point est celle contenue par 
le registre FORME (&H6838). 


La 1'"° version du moniteur du TO7 contient un bug dans DRAW qui entraîne 
l'effacement du pointeur de pile U dans le cas d’un tracé horizontal. 


Exemple : Dessin de la carte de France. 


On veut dessiner sur FOND JAUNE, TOUR NOIR, la carte de France par son 
contour : les mers en BLEU et les frontières en ROUGE. 


1. Programme d’initialisation en &HA90 


LOUE CET PESTE ENCEINTES ETSTI CUS 
PROGRAMME DE DESSIN DE LA CARTE 


DE FRANCE 


2% 7 6 #7 + 
ee + 2 2 + 


LEEDS EN NSEE ETS CEST OUEST ETES) 


INITIALISATION 


OR pété où 


SROZ SANTC EQL 4807 
0004 ET EU $0c 
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SUR CRG  #A000 
ANOC 74 JE FRANCE PSHE LV, X,DP,D.CC On sauve 
ACC IE  a0ie DU HINIT 


OS Es C9 DERUT LDE ls 


KO7 [! 04 CMPE  REOT 

AGOS 27 CE BEC SUITE 

#CB BD 2905 JSR  PUTC 

ADJE 20 FES ERA  DEBUT 

at iB O©NIT FCB $tE SE 

AG i SE ÊCE SE FONC JAUNE 
où? 1 CR IE ESC 

BUT 44 FCE  $44 FORME BLEUE 
A1 !E FCR IR ECE 

AE s£ FCE  $éc TOUR NCIF 
315 ‘4 FCB $t4 EFFACE LE CURSEUR 
BOT LA FCE  $0C Re? 

AC 19 D4 FCB  $C4 ECT 


SROGRAMME PRINCIPAL 


cv... 


ù ét #7 


5041 CHDFAN SOU 24041 
E39F FLOT EOU  #EB0 
5078 FORME QU $4018 


CNE C SET 


L 
3006 LIS SET 409 
090% CCLOR SET  $04 Eleu = Mer: 


3619 JE SO8! CUITS CLR CHIDFAN Mode graphique 


ACIC BE 04 LDA  #COLOF Choix de couieur 
ACIE ET OP CTA  FOFME 

AC2t SE 9075 LDX 8CX Zoint de depart 
B024 10BE 000C LDV BLIS 

W28 BD EEQf JER  OLOT 

AO2B CE  AfII LDU ÆTABLE Debut de le cartes 
IE BD AIO JER TRACE 


0902 COLOR SET #02 Rouge = Frortiers 


a021 25 FF FIN PUS U,Y,X,DP,D,CC,PE 


2. Sous-programme de TRACE en &HA199 


SOUS-PROGRAMME DE TRACE 


ee. ——_… 


+ 4 + 


E8OC DRAN EU  fEBOC 
FFFF FINTAB EQU  SFFFE 


1100 2FG  #A100 


A100 ÀE C1 TRACE LDX  ,U+s 


4102 10AE CI LDY ++ 
A105 108C FFFF CMPY  FINTAE 
4109 27 05 REG RETOUR 
A10E BD  EBOC JSR  DRAk 
ALCE 20 FO ERA TRACE 
A110 75 RETOUR RTE 


3. Table des contours 


aiii 0065 TABLE FDB  $0065 


AIT 000€ FDE  $000€ 
AL1S (063 FDB  $006 
A117 0013 FDB  $0017 
A119 0066 FDB  $0066 
AI1B 0015 FDE  $OCIS 
A11D 0062 FDB 50062 
AL1F 0016 FDB  #0014 
Alël 0060 FDB  $0060 
A123 0019 FDB  $9019 
ALES 0050 FDB  $0050 
A127 O01E FDE  $O01E 
129 004E FOR  $O0IE 
A12E 0024 FDB  $0024 
A12D 0056 FDB  $0056 
A12F 002€ FDB  $002€ 
ALI 004A FDB  #004A 
AIS 0029 FDB  $0020 
ALSS QOYE FDB  #003%E 
A1T7 002 FDB  $002€ 
A179 007€ FDB  $00!C 
A1TB 0027 FDE  $0027 
A13D 0039 FDB  $0079 
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2e Don FTE #2: 
314! JÔTA  -  ZTH #O97A 
Et au FLE #00 
345 3070 CDE  $00: 
Fig QUE FRE sacs 
44 JTE EDP OT 
ñt4E 997E FDE nds 
MAC 0077 FDE #007 
£14 QG3E EDE  $AITe 
ME! 2 rre #ç92û 
SEA QQTE FDE  S$Q0TE 
À SE "022 SDE +002 
ÊtTT AQTE EDE 90e 
3159 5 CDR $çot 

RTE CITE FRE #$Os 
En MS EDR  $£015 
HS not FDE #907 
| ÉbC DE 50013 
£:s7 QT FCE #90 
ME 319 F2 $c019 
DES DOI FDE  $GETT 
5159 CO0F TE £000F 
ñt$E QUTS FDE $JE 
ALT FGÿE FDR  #CQUE 
ÊLET [MS FDE #00: 
7 202 CTE 30002 
PAIE QUE EDE Soie 
M7 1091 TE 5990! 
Èt77 GoTs FE SOÛTE 
A179 5699 SDP #0959 
riTE Ex D CDE #06 
At CCCA FCB  #Q00À 
BTE Q03E FDE  $CÛTE 
4131 500 ZDP +600 
Éi27 CEFT FDE  $EFEE 
295 FFF EDP SFCFE 
FIST ESFF FDE $EFFE 

zoûc END 


mo Tctal Errors 


, 


Comme vous pouvez le constater, la totalité des points de la carte ne figure pas 
dans la table ci-dessus. Celle-ci s’arrête en effet à la Bretagne et nous vous lais- 
sons le plaisir de la terminer. 


N'oubliez pas de faire passer la couleur au rouge pour les frontières. 
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Chapitre 3 


Déplacement d’une figure 


I. Méthode générale 


° Pour déplacer une figure, on doit procéder de la façon suivante : 

— Donner les coordonnées de départ X et Y du dessin ainsi que l’adresse 
(dans U) de la table de constitution, 

— Faire : Couleur (FORME) = Couleur FOND ce qui équivaut à effacer 
— Appeler le S-P de dessin le dessin en X, Y 
— Donner les nouvelles coordonnées X et Y ainsi que l’adresse de la table 
dans U, 

— Définir la couleur de FORME réelle. 

— Appeler à nouveau le S-P de dessin. 


Ce qui correspond à l’organigramme ci-dessous : 


COL-—x 
LIG—Y 
TABLE—U 


COUL.FORME = 
COUL.FOND 


COULEUR FORME 


° Si la figure se déplace d’un point à un autre conditio .ellement à un certain 
nombre de tests, on peut ajouter ceux-ci à la fin de |” anigramme ci-dessus 
ou faire un S-P de tests appelé Par le programme incipal. 
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IL. Cas d’un dessin défini par l'utilisateur 


17 CAS : Déplacement d’une raquette contenue dans un seul GR$. 


La raquette se déplace de haut en bas puis de bas en haut à partir de la position 
initiale X = 1'° colonne, Y = 13° ligne, soit X = 1 et Y = 12. 
On se reportera au chapitre 2 pour l’initialisation. 


Le dessin étant dans sa forme la plus simple, il est inutile ici de travailler avec 
le registre U comme pointeur de l’adresse du dessin. 


Par contre l’accumulateur B contiendra le sens du déplacement vertical : 


B= +1 si la raquette descend 

B = — 1 si la raquette monte 
La modification de l’ordonnée Y sera donc faite en utilisant l’instruction 
LEAY (&H31) en mode indexé avec déplacement accumulateur : 


LEAY B,Y soit 31 A5 en hexadécimal 


Si B contient +1, LEAY B,Y —= INCY 
Si B contient —-1, LEAY B,Y — DECY 


Le changement du signe de B se fera par l’instruction implicite (inhérente) 
NEGB qui remplace le contenu de l’accumulateur B par son complément à 2,: 
ce qui revient à en changer le signe. 


On commencera par faire monter la raquette. Le programme de déplacement 
est alors le suivant : 


LATSSNCS ER SET SUCER TS ETS ETES RTE) 


La MAQUETTE COL 1. LIG 12 


t { 
Ÿ Ze procramne initielise l'ecran 2° À 
{ zzcomblaur: t 
1 FONC er VERT } 
Î =GRME en BLANC Î 
À TOUR en NOTE } 
L f 
Ÿ L'ecran est pfface ans] QUE le Ï 
f curseur avant de 3essiner Î 
} } 
l t 
4 L 

Î 


LACUERETO RIT ETES TES STD CIS DEN ENST 


ES9T BUT  EQL #EBC7 
LORD ESA EU 4802D 
LO41 CHDRAN EG sea: 
CETS CPL CO $E2TS 
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600 


A900 34 
A0C2 CE 


AÔOË 
07 
A0QG 77 
X0OB ED 
ACQE 20 


LI rr1 
[Re 


4 — 


A010 CE 
ACIZ FF 
A01E SE 
AQ19 108E 
010 Cb 
AGE F7 


422 BD 
AC2S Cé 


4027 BD 
ACZA ED 
A02D 20 


A02F 54 
031 CE 
ASS BD 
A0%6 CE 
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Qont COLRAB EGC 
3900 LISFAG EGL 


4 
12 


sec 
2h000 
L,V,X,DP, DEC 


#TABLE 


.Ù+ Lire E dans TABLE 


#4 p=47 
SUITE Qui, alors quitter 
PUTE Non, 


DEBUT alors reconmencer 


#DEBGR Debut des GR$ 
USERAF 

#COLRAQ On olace la 
ALIGRAGQ raquette en 1,12 
#GRDO 

CHDRPK On la dessine 


CHPL 
#-1 Init du derlacent. 


DEPLAC Denlacenent 
TESTI Test 
MOVE On recommence 


SOUS-PROGRAMME DE 


0989 GRDS  EQL 
2RG 
JE RAQUET PSHS 
A071 LDL 
C6 DEBUT LDE 
04 CMPB 
{5 BEC 
Eg0T JSR 
FE BRE 
Q07A SUITE LOU 
E0?P STL 
0001 LDX 
QD9£ LDY 
9 LDE 
CT STE 
ESTT JSR 
FF LIRE 
A0ZF MOVE  JSR 
AC57 JSF. 
F8 BRA 
j 
} 
3 
L 
| 04 DEPLAC PSHS 
iB LDE 
E805 JSR 
42 LDB 


DEPLACEMENT 
B On sauve B 
#$1B ESC dans E 
PUTC 


#$42 Forme = Fonc 


058 BD 
ACJE BD 
AUSE BD 
AC41 Cé 
043 BD 
A046 CE 
4048 BD 
A04B EE 
A04D 51 
AO4F BD 
A082 BD 


CE 
AOSS TE 


EB03 
EB3T 
066 
1B 
EB03 
47 
EBO3 
E4 
A5 
EBTT 
AOCE 
B4 


6 0% #4 v% Le 44 


4067 108C 0000 TESTI 


A05B 2€ 
AOSD 30 


oi 


ASE 108C O01E TEST2 


A0E2 2 
ACE4 5 


AGES 29 


ACEE ©4 
ACEB BE 
A06B 50 
AOED 26 
AGYF TE 
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FIN 


JSR 
USR 
JSR 
LDE 
JSR 
LDB 
JSR 
LDB 
LEAY 
JSF 
JSR 
PULS 


CHPL Effacenent 
TEMPO  Tenporisation 
#$1E ESC dans E 


#$47 Forme blanche 


58 Rapoel de E 

B,Y On change Ÿ 

CHPL Dessin de raquette 
TEMPO  Temporisation 

EPC Fin de SF 


SOUS-PROGRAMME DE TEST 
DE LA POSITION DE 


CMPY 
BNE 
NEGB 


CHPY 
ENE 
NEGB 


RTS 


LA RAQUETTE 


#0 On est en haut ? 
TEST? Non alors TESTE 
Qui -> inverser E 


#23 On est en bas © 
FIN Non. alors FIN 
Qui -> inverser E 


SOUS-PROGRAMME DE 
TEMPORISAT IOR 


PSHS 
LDX 
LEAX 
NE 
PULE 
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; TABLES 
! 
x71 *R TABLE FCE IR EC 
AC72 49 FCE S$éC  TOUF NDIF | 
477 !B CCE SR Ce 
AC74 s° FCE $®2 FOND VERT 
75 1B CP PR ES 
BQ7é #7 FCE $47  CORME BLANCHE 
3077 oC ECB CC SAI 
AG7e 14 CCE  S14  EFFACE LE CURSEUF 
3679 04 ECR 404  EOT 
ACTA OT DEBGR FLE 
A07B 9% ER 
Ao7E 97 FCE 
M7 GE FC SRQUETTE 
RG7E 57 FCB  : 
a077 97 T%B 
ETE 07 FCE © 
Ave! 37 B 
990€ ENT 


NGCÈC Total Errare 


On remarquera que dans tout le Programme X est évidemment invariant. 


On a également inclus un Sous-programme de tests permettant : 
— Si Y = d’inverser B 

— Si Y =24 d’inverser B 

— Sinon retourner sans toucher à B. 


Le système de commutation mémoire multiplexé entre les couleurs FORME et 
FOND fait apparaître un fantôme lors de la procédure d’effacement (1). 


En effet tel que définit ci-dessus, cet effacement est en fait l'écriture en cou- 
leur de FORME d’un caractère vide dans la même couleur que le FOND. 


Pour éviter ce fantôme il faut effacer en écrivant un caractère vide dans la 
couleur FOND. 
C’est-à-dire un espace (SPACE == &H29). 


C’est ce procédé qui sera utilisé par la suite. 


(1) Pour plus de détail on se reportera à l’ouvrage du mêm eur “Manuel technique 
du TO7”’ aux Éd. CEDIC/NATHAN. 
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Afin de ralentir le déplacement de la raquette, on a créé un sous-programme 


de temporisation. On peut en faire varier la durée en chargeant X avec une 
valeur différente. 


.2° CAS : Déplacement d’une balle avec rebond sur les bords. 


La balle partira de X =2 et Y = @. Les bords sont donc : X=2, X = 49, Y=@et 
Y =24. 


Colonne réservée à la raquette 


Le sens du déplacement des X sera contenu dans l’accumulateur A (+1 ou 
— 1) et celui des Y dans l’accumulateur B (+ 1 ou — 1). On pourra donc inver- 
ser le sens de l’un ou de l’autre par NEGA ou NEGB. 


La balle se déplace donc dans quatre directions perpendiculaires : 


ae A = +1 
B = -i B=-I 
Déplacements de la balle 
À = 1 A = +1 
B = +I B = +1 


Le sens de départ sera A = +1 et B= +1. 


L’accumulateur B étant utilisé pour l’effacement, il est nécessaire de le sauve- 
garder sur la pile S en début du sous-programme. 


Le sous-programme de test en contiendra cette fois quatre (un pour chaque 
bord). 


Le programme complet sera donc le suivant : 


LRETSS TTC ECO PEN EDS EEE CENDRES 


Li t 
Ÿ Ce orooramne 1nitialise l'acran es 1 
Ÿ assembleur: t 
j FONT en ER? } 
Î FOCMC en 8i NC L 
Î TOUR en NOIE } 
Î Li 
Ÿ c'ecrar est Rs E ani QUE te À 
{ Zurseur avant de dessiner t 
L t 
} La SAQUETTE COL 1, Lis 12 t 
} { 


RECETTE OT CONS EE TN TSI EST CURE) 


EESS PUTZ ECL EE 
LO2D JSEFAF SOU  $252D 
6041 CHDRAK EGL $609: 
EST CHPL CGU $ERIS 


2091 COCLRAE ESU  : 
200C LIGRAG EU 12 


0090 GRDO EU £a 
OFFF TEMP1 EQU $OSFF 


ACOC CRE  $AdCC 


4000 54 7F PROG PSHS 1, Y,X,DP,D,CC 


A00Z CE  A987 LDL #TAELE 

3005 €6 CO DEBI DB U+ Lire B dans TABLE 
A097 C1 04 CMPE 44 E=47 

4509 27 0 BÆE9 SUITE Qui. alcre quitter 
ACOB ED  EB0: J5F PUTC  Kcr, 

A00E 20 es BFA DER] alors recomnen: 
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AOIQ CE  AOGC SUITE LOU  #DEBGF Debut des GR$ 


AC1T FF  EO2D STU  USERAF 

ACIÉ BE  O00!1 LDX  #CCLRAG On place ia 

3019 108E GO0C LDY  #LIGRAG raquette en 1,12 
AOID CE  AQ94 LOU #HRAQUET 

1020 BD 06! JSR  2ESG! 

AO23 CE FF LDE  #-! Init du dep! acert, 


3025 BD AO2D MOVE JSR  DEPLAC Denlacenent 


RO? ED A4? JSF  TESTI Test 
3028 20 Fe ERA MOVE Ûn recomsence 

} SOUS-FROGRAMME DE 

i DEFLACEMENT 

À 

ï 
3070 T8 Si DEPLAC FSHS 8 On sauve E 
AUTF CE  AN90 LDU  #EFFAC EFFAC dans L 
3072 9D  Aféi JCR  DESSI Effacement 
ASTE ED A9SÉ JGF TEMFC  Tenoorisaticr 
78 CE A4 LRU #RAQUET PAQUET dans ! 
ÊTE E& Es LDE  .S Rapoel de E 
MID 3 LEAY BY In change Ÿ 
RETE ET ESéi JSR  DESSI Dessin de raquette 
3942 PC ASE JCE TEMFO  ‘emccrisation 
nue IE  £é FULS  B,PC Fin de S-F 


ZOUS-PROGRAMME DE TEST 
DE LA POSITION DE 
A BALLE 


Pi 6 ee Dé vw nt 2 


1GSD !0@C 0000 TEST! CMPY HO On est en haut ? 
A06i 26 9 ENE  TESTZ Non alors TEST: 
AE 50 NEGB Qui -\ inverser B 


Aû&4 108C O01B TESTZ CMPY #24 On est en bas ©? 


1063 28 1 BNE TESTS Non. alcr : TESTS 

AJER EC NEEE Qui -: inverser E 
AÛEP 9C MO02 TESTT CMPX #2 On est a gauche ? 
ROLE 2€ 01 ENE  TEST4 Non, alors TESTÉ 

V7) 40 NEGA 


AG7: EC OO28 TEST4 CMPX #40 On est a drcite © 


4074 28 O0 ONE FIN Non, alors FIN 
ACTE 4€ NEGE 
107975 FIR OT 

t 

Î 

L SCUS-PROGEAMME DE 

t TEMPORISATION 

É 

Î 


3079 24 ‘0 TEMO SCHS XX 


ACTA EE CO7FC LOY  ATEMPI 
4070 0 !F BOUT LEAX -1,X 
AC7F 26 FC ENE ECUT 
atet 55 90 FULE  X,FC 
Ï TAELEC 
t 


EM IR TABLE FCE  $i8 ESC 


A0B4 &û FCP  $ét JOUR NOIF 

065 ! FCR 518 £eC 

ROSE 3 FCP 452 FOND VERT 

2087 ‘B FCB SE ESC 

AOBE 47 FCE #47 FORME BLANCHE 
A989 ac FCR  $0C SA 

AOBA 14 FCE #14 EFFACE LE CURE 
ACBB 94 FCB 504 EOT 
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A98C OT DEBGR FCP ! 
A0BD dE CB 3 
AÔBE 0? FCB © 
208F 07 FC, À RAQUETTE 
AO9Û Q? FCE 
a091 03 FCB  ! 
R09Z 0? FCE  !- 
A093 03 FCO 3 
A094 18 FCB  $12 
A095 7È FCR $7Æ 
AOSE TE FCE  $7E 
2007 FF FCR FF BALLE 
ASE FF FCE  $FF 
099 #Æ FCB  $7E 
AC9A TE FCR  $7E 
A09B 18 FCR 519 
000€ ENT 


90000 Total Errors 


On voit déjà apparaître les futurs programmes de SQUASH, PING-PONG, et 


autres MUR DE BRIQUES. 
DEBUT de 
DEPLAC. 


3° CAS : Le dessin est constitué de plusieurs GR$ 
Mettre bes 


coordonnées 
dans X et Y.et 

l'adresse de 
l'effacement des U 


1* exemple : déplacement vertical de la raquette. 

cs données dut 

IX et Y, et l'adresse 

du dessin dans 
U 
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On dispose déjà d’un sous-programme DESSI qui lorsqu’on lui passe les 
coordonnées X et Y du coin en haut et à gauche de la figure, ainsi que 
l'adresse de la table du dessin dans U dessine toute la figure sur l’écran. 


Pour déplacer un dessin il faudra donc appeler DESSI une première fois pour 
l'effacement (en écrivant une figure ESPACE de mêmes dimensions que le 
dessin}, puis une seconde fois pour le dessin lui-même après déplacement. 


Prenons pour exemple le cas du déplacement d’une raquette de hauteur dou- 


ble de la précédente, donc constituée de deux GRS$ identiques à GRS(8). 
Le programme complet sera alors le suivant : 


LANTHTLI DISCUTE TS ETS EESUE TASSE) 


É t 
+ Ce orogranne anitialise l’ecran 27 À 
Ÿ azcosbleur: L 
} FOND er VERT Î 
t SORME on BLANC ï 
À TOUE en NOIR t 
Î Î 
Ÿ L'ecran est efface ans) que le ' 
K curseur avant de dessiner : L 
Î j 
k La SAQUETTE COL 1, 215 12 t 
Î Le BALLE CU I, LIE 

L ( 
LÉTERERTRUE CET TER SD ETES CIS TETITEE TE) 


POS OUTC EQU ENS 
SOIT USERAF EQU  $4T 
cû41 CHDRAH EQU  £E041 
ESS CHPL. ER ES 


2091 COLRAG EQU : 
QN0C LIGRAC EUU 12 
02 COLEAL EN 
0906 LIGEAL EU © 
2090 SRDO EQU $pt 
0081 ERD2 EGL #4 


CIFS TEMPA EDU  $07FF 


AOC CRE  $AQCC 
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1000 © 


AQQT 


sp © 


AQQT 
3009 
AE 
A0CE 
RMS 
AC17 
ACLE 
319 
Ao ie 
antr 
po2° 
QE 
AUTRE 
300€ 
BOT 
BOT! 
AGTE 


CT 
T8 
CIE 


XI 
RO3F 
441 
AC44 
A47 
AD4R 
3040 
A04E 
AE! 


AST 3 


ASS 
ROSE 
AGSB 


Lj 
n7 
EC 
au 
CE 
FF 
gE 
1ñ0p 
ré 


te 


PI 
dE 
1Ô6E 
CE 
ET 
8E 
CE 


EL 


JA DP, D, CC 


Lir2 E dans TABLE 


E=27 
di. alors quitter 
Ner. 


3l2rs recommencer 
Debut dez GR$ 


On clace iz 
racuette an 


1,17 


Init du deplacent. 
de la balle 


Depl acement 
Test 
On recomsence 


On sauve B 
SPC dans EF 


Effacenent 
Tenporisation 
Balle dans E 


Rappel de P 
On change Ÿ 
On change À 
Dessin 
Tenporisation 
Fin de S-P 


7F RAQUET 9SHS 1H, vx 
4987 LOU #TABLE 
CN  DEEUT LDB .ih 
Q4 CMFE #1 
ŒC EUITE 
E907 JSF  PUTC 
FE PRA  JERUIT 
AOSC SUITE LOU  #DEREF 
Len 2TU CERF 
Qùct LOY  ACOLKAC 
Cocc LDY #LISFA 
a LEE  ACEL‘ 
sûat ITR  CHEFAN 
ET? JCF  CHP- 
5902 L2X #CO!FAL 
gon LDY KIGER ! 
8! DE sen 
£ag! STE  CHIRA 
at LDB +] 
3 LDP ##1 
ROIE NOVE JSK  DEPLAC 
GQCD JSR  TESTI 
FE BRE MOVE 

ï 

t SOUS -PFOGRAMME DE 

l DEPLACEMENT 

1 

t 
4  DEFLAC PSHS 8 
2° LDE  #$20 
£C4! STE  CHDRAW 
ES3E JSR  CHL 
6078 JSR TEMPO 
gi LDE  #6RDI 
5041 STE  CHEDRAH 
Eg LDE  ,5 
bal LEAY BY 
86 LEAX A} 
ESS3 JSR  CHPL 
BOTE JSK  TEMPD 
84 PULS  B,FC 
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CQUS-PROGRAMME DE TEST 
DE LA POSITION DE 
LA RAQUETTE 


06 ve Dé é 2 ve 


A047 108C 0000 TESTI CMPY #0 On est en haut ? 
A04B 2€ Oi BNE  JEST2 Non alors TEST2 
AC4D 50 NEGB Qui -} inverser B 


AO4E 108C 0018 TEST2 CMPY #24 On est en bas ? 


4092 26 O1 BNE FINI Non, alors FIN 
8054 50 NEGE Qui -} inverser R 
A0S5 79 CINI RTS 
Î 
Ÿ 
î COUS-PROGRAMME DE 
} TEMPORISAT ON 
1 
Î 
2066 34 10 TEMPO PSHS X 
A0S8 BE  OFFF LOX  #TEMI 
4058 0 1F BOUC LEAX -1,1 
AQSD 24 FC BNE  BOUC 
Q0SF 35 20 PULS  X,PC 


à  SOUS-PROBRAMME DESS1 : 

L 

4 Ce sous-progranse pernet le dessin 
t d’une table de GR$ contenant: 

Î 

ÿ -Os’il n’y a pas de 6R$ 
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4061 24 
ROB3 À6 
A06S 81 
AOË7 27 
069 81 
AOEB 2 
AOED AE 
AOBF 31 
071 20 
073 BI 
A07S 27 
RO77 B7 
A07A BD 
A07D 30 
ROTF 20 
AOP1 35 


087 
BOB 
1085 
ROBE 
A087 
088 


1B 
50 
1B 
g2 
1B 
47 


6 dé 2 +4 +6 + 28 +9 Je 70 28 F4 25 20 Je 


DESS1 PSHS 
DEB2 LDA 
CMPA 
BEA 
CNPA 
BNE 
LDX 
LEAY 
BRA 
GRD  CMPA 
BEQ 
STA 
JSK 
RET  LEARX 
ERA 
FIN2 PULS 


LI TABLES 


TABLE FCE 
FCB 
FCE 
FCB 
FCE 
FCB 


U 


U,Y,X,D 
sU+ 

#2 

FIN2 

# 

ERD 

2, 

1,Y 
DEB2 

#9 
RET 
CHDRAW 
CHPL 
1, 
DER? 


- {en fin de ligne 
- Zen fin de table 


- {$80#n) pour le 6R$(n) 


=szzz=  X contient !e No de COL 


- - - LG 


Ll’Adr de TABLE 


On sauve 
Charger avec CR$ 
Fin de TABLE ? 
Qui, alors FIN 
Fin de ligne ? 

Non alors GR$ 
Retour colonne deb 
Saut d’une ligne 
Reconnencer 

Case vide © 

Qui, alors suite 
Ranger À 

Dessiner ER$ 
Avancer C’une case 
Retourner au debut 


U,Ÿ,X,D,PC On recupere 


$iB 
$b0 
$1E 
$52 
$1 
#47 


ES£ 

TOUR NOIR 
ESC 

FOND VERT 
ESC 

FORME BLANCHE 
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089 QC FCH  $0C RAÏ 


A0BA 14 FEB  $14 EFCACE LE CURSEUR 
ACSB 14 FCE  $04 EOT 

AE QT DEBER FCE S 

AD WE: ©CB © 

309E 0? FCR 

a0eF ÿT ECR © RAQUETTE 

ACC Q FCE & 

a001 13 FCR © 

A0gT ©] FCE 

3097 5 CB © 


A4 g@ RAQUETFCE  $Bf 


Acc 91 FCE 401 
BG9E gC FCE fat 
1007 2 £CR $C? 


AGTE 22  EFFAC FCR #29 


309 1 ECR. ‘+01 

AC9E . FC #20 

BÛCB 2 FCR $0z 
000€ ENC 


50099 Tctal Errcrs 


Pour gagner en vitesse, on peut supprimer la temporisation. 


Un autre moyen peut être dans certain cas de définir un dessin entouré d’espa- 
ces (SPC = &H29) de telle façon que le dessin en se déplaçant s’efface de lui- 
même. 


2° exemple : déplacement vertical d’une raquette. 


La raquette est cette fois définie par deux GR$ identiques (GRS$(@) = &H89) 
encadrés en haut et en bas par deux espaces (&H29). 


Pour accélérer son déplacement on a supprimé au maximum les appels de 
sous-programmes. On ne conserve que DESSI, les tests faisant partie de la 
routine MOVE. 


Le déplacement consiste tout simplement à redessiner la raquette à sa nouvelle 
position. 


La table RAQUET contient alors les deux espaces haut e’ ,as d’encadrement. 
Les parties de programme modifiées sont donc les su ntes : 
BUTS 15 AS MOVE LEAY E.V Gr change “ 


4527 BD à07A JSF DESSI Dessin de re 
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RFC! 1000 O0IS TESTI 


ME 


43e 29 2H FINI 


ASE 5 
BOT 1E 
305 52 
(AA {E 
Gb! 37 
AGE AC 
MST {3 
[HET ü$ 


1085 M3 JEESR 


BG QT 
367 33 
AD£E Q7 
30e 63 
BtbE Q7 
ACER * OZ 
BD SC 03 


3G5D 20  SAQUET 


ASE pi 
AG5F 99 
BOTE 9: 
a67 30 
ACT2 ol 
3077 20 
FL 07 
3000 


GAQAC Total Errorz 


AC2E 108C OQNC TESTI 
AE 25 01 


TABLES 


FCE 
ECE 
FCE 
CB 
FCE 
FCB 
FCE 
FCB 
FCE 


END 


On est en haut ” 
Non alors TEST2 


Qui -> inverser FE 


On est en ba: ©” 
Non, alors FIN 
Our -> inverser E 


ESC 

TCUR NOIR 

EST 

FOND VERT 

ESC 

FORME 8LANCHE 
RAT 

EFFACE LE CURSEUR 
E0T 


RAQUETTE 


oi 


III. Déplacement d’un dessin en mode graphique 


Comme nous l’avons vu au chapitre précédent, nous disposons déjà d’un 
sous-programme GRAPH qui permet le dessin en mode graphique à l’aide de 
la routine PLOT du moniteur, et qui est du même type que le sous-programme 
DESST. 


Le principe de déplacement sera donc le même que précédemment, c’est-à- 
dire : 

— Définition de la couleur de FORME en couleur de FOND, 

— Appel du sous-programme GRAPH pour effacer la figure, 

— Modification des coordonnées, 

— Définition de la couleur de FORME, 

— Appel du S-P GRAPH pour dessiner la figure. 


En mode graphique, la couleur du point doit être celle choisie, mais il faut en 
outre choisir si ce point est un point du FOND ou de la FORME avant de pla- 
cer l’ensemble dans le registre FORME (&H638). 


Le sous-programme de déplacement sera donc le suivant : 


FORME  EQU $6028 
COLFON EQU $FC 
COLFOR EQU 404 


ORG $AOO0 


L 
* SOUS-PROGRAMME DE DEFLACEMENT 
t EN MODE GRAPHIQUE 
* 
DEPFGRA PSHS B On sauve B 
LDB #COLFON 
STE FORME 
JSR GRAPH 


LDE #COLFOR 
STE FORME 
LDE .S 

LEAY  B,Y 

JSR GRAPH 
PULS  B,PC 


END 
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Un programme d’application pourra consister à déplacer la mouche de haut 
en bas puis de bas en haut, comme on le faisait pour la raquette. Ce qui donne 
le programme ci-après : 


LLDE TETE DETENTE TT EEE EEE ETI TITI) 


ECRAN & CURSEUR EFFACEE 


{ { 
i PROGRAMME DE DESSIN ET DE } 
Û DEPLACEMENT D’ UNE LI 
} MOUCHE } 
| Û 
L] FORME : BLEUE L 
L FOND : JAUNE LI 
} TOUR : NOIF L 
; t 
} L 
L t 
| 1 


RERTANUIENERERANIRNNNANANENIATANEENAIT 


€807 PUTC EQU  $EB0S 
bO3E FORME EQU $605€ 
NGFC COLFON EGU  $FC 
0904 COLFOR EQU #94 
3000 RG  $A000 
AOOC 34 7F MOUCHE PSHE U,Y,X,DP,D, CT 
9002 CE  A026 DU HINIT 
A00S ES C9 DEB! LDE U+ 
A007 C1 4 CMPB #4 
A009 23 QE BEQ SUITE 
A00B BD  EB0Z JSR  PUTC 
AOOE 20 F5 BRA DER! 
3000 CO SET DO 
O0SC LIS SET 92 
4010 SE 0000 SUITE LDX  #COL Adresse de la 
AC13 108E O0SC LDY LIC  oreniere case 
017 CE A078 LDU STABLE Table de nouche 
AC1A CE FF LDE  #-1 Init du deplac. 
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A01C BD A0S1 MOVE JSR  DEPGRA Deolace la mouche 


AO1F ED  A06© JSR  TESTI Test de positior 
#22 20 F8 BRA MOVE On reccmnence 
24 35 FF PULS U,Y,K,DP,D.CC.P£ 


4026 1B INIT FCB  $1B ESC 


A027 44 FCE 54 ‘FORM BLEUE 
A0 TE FCB  S$IB ESC 
A029 51 FCB 452 FOND JAUX 
MA LE FCB  $IB ESC 
BE FCE Si TOUR NI 
HE 2e FCE SC SA 
RE 16 FCF fie EFF DU CURSEIF 
XX 94 IR #04 ED 

L 

N SCUC-CODGRAMME SFAFE. 

Ye annees) 

' 


45 CHORAN EOU  #4941 
ESOF PLDT El  $E80 


XF 74 5 GRAPH FSHS LU, Y,X,D On sauve 
FOTI 75 L£)4i CL CHDRAW Mode grackioue 


AT4 46 CO DEBZ [A Lx Charger un point 


ACTE Et 07 CHA #7 Est-ce la ir © 
3079 27 15 BED CIM Qui, alors FIN 
BCIAS! 07 Ce EE Fin de ligne © 
OC 26 PNE POINT Non, alors POINT 
POTE AE  £5 {EX 258 Retour case : 
4040 51 71 LEAY  .Y Cescente de ligne 
png? 70 FC BR£ DEB?  Foint suivant. 


3044 21 9  COINT CMPA #0 Poist eteint ? 


AO4E 7 € EEG FE Qui, alors RE 
48 90 F80F JER PLOT Alluner le 5oint 
AO4E 29 C1 PRET  LEAX !,Y Case suivants 
SD 2 £s EPA DER? Point suivant, 


BO4F ZE F£ FINI PLLS UV. X,D.0C 
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ACS1 
ANT 
A0SS 
ECSR 
AGSE 
ACSD 


AE 


AQEE 3 


KA 


BOT 


RÈTE 
3074 
ACTE 
AC7E 
EST 
3002 
A024 
AGeS 
AOZE 
AC8À 
A08C 
ACSE 
A9 
492 


4 
FC 
£B 
AD2F 
(4 
&93E 
E4 
À 
A02F 
54 


c10c 


0600 
90€ 
5192 
910: 
9006 
BDUN 
9107 
Qi0i 
d101 
g10t 
5200 
000! 
9191 


ve 26 ve ve 


DEPGR 


INT 


TABLE 


SOUS-PROGRAMME DE DEPLACEMENT 
EN MODE GRAPHIQUE 


A PSHS 
LDE 
STB 
JSF 
LDE 
STE 
:DE 
LERY 
ISR 
PULS 


B On sauve B 
#COLFON 

FORME 

GRAPH 

#COLFOF 

FORME 

x 

5EAPH 

E, PT 


SOUS-FROGRAMME DE TECT 


CMPV 
NE 
NESB 


cuey 
NE 
NESE 


#5 In est er faut ? 
TESTZ Non alors TEST! 
Jui-hinvercer B 


#95 On est on bas © 
FIM2 Non alors FIN2 
Qui-inverser E 


soir 
50000 
$000€ 
$0102 
$9i0° 
£0000 
59001 
50102 
#010: 
$o1ol 
$010: 
#0200 
$0001 
$0101 
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04 D192 FDE  $9)107 


1008 2001 FDR  $C00! 
AE onai FDE  #000! 
MA 9001 FDR  $0001 
AOÇC 020f FDE  $020€ 
AE 5901 DR 40001 
ACAQ 101 FDE  $010! 
AA 5102 FDB  $0102 
ADA& 0000 FDE  $9000 
AOAE 0001 FDB  $0001 
ACAE c2ot FDE  $)200 
AOAA 0000 FDB 50000 
AOAC 010 FDE #91 
3000 END 


0000 Total Errorz 


On remarque évidemment que dans un déplacement de ce type, ligne par ligne, 
le mouvement est très ralenti. 


Il est possible de faire un déplacement de n lignes en n lignes. Pour cela il suf- 
fit à la ligne $AYIA d’initialiser B avec le nombre de lignes n de saut : 


SAGIA C6F8 LDB #-8 InitdeBàn= 8 
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Chapitre 4 
Lecture des commandes 


sensorselle 
SLOP une 

bien meilleure 
vistbihte 


L accessoire 1 
sndis pensoble 
o votre O.AD] 


Ne NAS Ce, 


Le : NE 2? 
LPC. SA Re 


Les commandes seront en général passées au TO7 par l’utilisateur soit par le 
clavier, soit par les manettes de jeux, et plus rarement par le crayon optique. 


I. Organisation du TO7 


1. Le clavier du TO7 est organisé comme une matrice de 8 lignes et de 8 colon- 
nes. Chaque touche correspond à un interrupteur reliant une ligne à une 
colonne. 


Les 8 lignes sont reliées au PORT B du 6821 système qui (après l’initialisation) 
est programmé comme PORT de sortie. L'adresse du PORT B est &HE7C9. 
Les 8 colonnes sont reliées au PORT A du même 6821 et sont programmées en 
entrées. Au repos toutes les lignes du PORT A sont à ‘‘1”’, et on peut lire à 
l’adresse &HE7CS8 la valeur &HFF. 


Deux sous-programmes existent dans le moniteur : 

__ KTST, point d’entrée en &HES849, qui permet une scrutation rapide du cla- 
vier et positionne le bit de retenue C du registre CCR à ‘‘1”” si une touche est 
pressée. Sinon C est à ‘‘@”’. 

— GETC, point d’entrée en &HE886, qui ramène dans l’accumulateur B le 
code ASCII du caractère frappé. Si aucune touche n’est enfoncée, B contient 
. 


63 


Ce sous-programme est évidemment plus long que le précédent puisqu’il fait 
de nombreux tests (touches SHIFT, CNT, ACC,...). 


[1 sera donc intéressant de construire un sous-programme de lecture rapide 
permettant de reconnaître une touche. (Voir le paragraphe suivant.) 


© 
© 


O1 


® 0 10 
E 10 L6 10: 


q 
q 
2.1 


Organisation matricielle du clavier 


2. Les manettes du TO7 sont gérées par le 6821 de l’extension jeux et un sous- 
programme du moniteur, JOYS, dont le point d’entrée est en &HE827. 

— Avant l’appel de ce sous-programme on doit mettre dans l’accumulateur A 
la valeur ÿ ou 1 du numéro de la manette. 

— Au retour, l’accumulateur B contient la valeur de la position de la manette, 
codée de ÿ (état neutre) à 8. 


Ce code est conforme au schéma horaire ci-dessous : 


— Si le bit de retenue C—@ — la gachette est au repos, 
C=1 — la gachette est enfoncée. 


3. Deux programmes du moniteur permettent la gestion du crayon optique : 
— LPIN, point d’entrée &HE81B, teste le bouton du crayon optique et 
revient avec C= I s’il est enfoncé et C=9 s’il est ouvert. 

— GETL, point d’entrée &HE818, lit les coordonnées du point de l’écran 
situé face au phototransistor, et les range dans X (de 9 à 319) et Y (de 9 à 199). 
Si la lecture est correcte C = 9, sinon C= 1 indique une erreur. 


IL. Sous-programme de lecture du clavier 


“LECT” 


Mettre dans D 
la valeur lue 
sur la table 
TOUCHE 


test pour savoir si 
on est en fin de 
la table TOUCHE 


Mettre B 
dans le PORT B 
du PIA système 
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Ce sous-programme permet de reconnaître la touche enfoncée parmi une liste 
donnée de touches possibles figurant dans une table. 


La fin de la table est indiquée par $FFFF. 
Cette table contiendra des mots de 16 bits. L’octet de poids faible sera rangé 
via l’accumulateur B dans le PORTB du PIA. 


L’octet de poids fort, rangé dans l’accumulateur A sera comparé au PORTA 


du PIA. 

En fin de scrutation À ramènera donc : 

— soit $FF si aucune touche n’a été enfoncée, 

— soit un octet qui permettra avec B d’identifier la touche. 


Les tests d’identification des touches porteront donc sur l’accumulateur D. 


SARSTINRTESANNNNNERERENNRENANENIIIEIINI 


SOUS-PROGRAMME DE LECTURE 
DU CLAVIER 


ENTSEE : L contient l'adresse ce 
la table de codage de: 
touches. 


+ 4 4 hé 26 spé 4 ++ 


D 


SORTIE : D revient avec le code de 


ï 
Li 
{ 
} 
+ 
j 
Li 
t 
la touche enfonce : t 
Li 
] 
Î 
} 
î 
j 
Î 
L 
Î 


- 51 D = $FFFF auèune 
n’a ote enfoncee 


sinon À contient la 
valeur du PORTÉ et FE 
celle du PORTE, 


DR St 0 24 + JS 4 4 + +8 ++ 


CÉTLS TEE NET ETES OU UT RUE TETE: 


E?CE PORTES EQU $E7CE 
C?C9 FORTB CQU  $E7C0 


oooû RE tt 

9000 EC C1 OLECT LDD .U++ On charde D 

0002 1087 FFFE CMPD HSFFFE Fin de table” 
9006 27 A PEG FIN Qui, alors sortir 
0098 F7  E7CO STE PORTE Selection de li 
900B B1 £7C8 EMPA PORTA Touche reconn 
O00E 27 BEQ CIN Qui. alors" 
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9010 20 FE BRA LECT Non, on recongence 
oc12 39 FIN RTC 


0000 END 


00000 Tctal Errors 


HIT. Applications 


1. Déplacement de la raquette par action au clavier 


RELUISONNESENEENEEDINENAREONEENREENTREE 


Ce srogranne 1ritiaiise !‘ecrar er 
assantieur: 

FOND en VEXT 

CCRME en BLANC 

TOUR en NCIS 


l'ecran o35t offace ains1 OÙ 1e 
curseur avant de decsiner : 


a AAQUETTE COL f, LISE 


ÿe action sur la touche À fait 
DER ie raquette, 

ne action sur :a touche 4 la fait 
jescencre. 


Dé + 26 +4 26 ee DC nr 2e + ME er DS ve 6 + 6 “+ 
et DS “ot 4 a nt et D De het et 4 Se + 


ÉTOILE TRENSELEIEOITENTEN 


2507 UTC EQU +203 
6020 UEERAF EQLU  S£02t 
co41 CHDRAN EOU  S404! 
EUSZ CH EOU Se 


390! COLRAG EU 1! 
Q00C LIERAE EBC 12 
2000 SRDG ESU  $€0 
DFFE TOUCHE EG SDFFE 
FEFD TOUCHA EUU  $FEFD 
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Aû" 


AÇIT 


3029 


ACT 
4028 
ACIS 


A0 © 


RCIS 


3072 


Un dm 
AÛTE 
3677 
ASTO 


AûTC 


ACTE 
AD4 
Aja4 


QNLE 
4644 
RCE 


AO8E © 
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æ 


170€ 


Vous 


CE 
BC 


ne 
CS 


FD 
1087 
La kid 
ED 
La 
C1 
77 
ET 
26 


1087 
2b 


pi 
Le 


To 


7F  FkOG 


ADAS SUITE 


AOPE NOVE 


DM ONE es 7e 


FEFC TEST 


FIM 


DRE 


ECRS 


LE 


LOL 
CT 
LD* 
LIY 


nl 
sun 


ER 


LL 
JA 
CMP 
BED 
JSF 
JR 
CMPE 
DER 
JSF 
EFA 


CMPD 
ENE 


1 TE 
LE 


CMPD 
NE 
LDE 


RTS 


SAS 


VX, DP, DEC 
HTAELE 


+ Lire F dans TABLE 
#: E=z4i7 

EUITE Qui, alcrs quitter 
PUT£ Nor. 

JEE! 3lors recommencer 


#CEBEFR Debut des GRf 
JCERAF 

#COLRAG On clace ie 
#LIGRAD raquette en 
#RAGUET 

DEECI 


— 


ae 


#TOUCHE Adresse de TOUCHE 
LECT Lecture du clavier 
#3FFFF Aucune touche 

MOVE alors recommencer. 
TESTZ  Decogage 

TESTI Test 

#° Pas de derl acement 
MOVE Alors relire 
DEPLAC Deplacement 

MOYE On raccamence 


ZOUS-PEOGEAMME DE DECODAGE CLAVIER 


#TOUCHA Touche À? 
TEST4 Non. alors suite 
#-1 Qui, 2n mcnte 


#TOUCHK Touche K7 
FIN4 Non. alors fin 
#1 Qui. or descenc 


+ où DE pu ++ 


DEPLAC FCHE 
LL 


Cp 


Juit 
DL 
TD 
bé 
LEAY 
CR 
FULC 


+ 24 4 4 2 


ZDUS-PROGRANME D€ 


DEPL ACEMENT 


2 


#EFFAC 


ECS 


HRAÇGUET 


CES 


Ev 
DESS! 
E,eC 


On sauve £ 
EFFRC dans ! 
Effacsment 
RAQUET dans L 
#appel de R 
Dr change * 
Dessin de raouette 
Fir de SE 


SCLC-FECCRAMME DE TEST 
DE LA POCITION DC 


LA FAQUETTE 


In agt on has ? 
à ne 

Nor, aiors Fi 

n out gontar? 


Qui alors FIR 


Mon -: E=û 
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074 54 
AO7C Ac 


A09C E7 
axe ee 
Si 
ao 


desrss 
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ce 
c° 


DESS1 
DEES 


OCT 


GA 


un 


COUS-PFOGSAMME DESCI : 


sous-0roçramme permet :6 1es5in 


e tatle de GE$ contenant: 


- s'il s'y a 9as de SF 


: en fin de ligne 


2 en fin de table 


880) Jour ie SF#(n) 


ENTRÉES : 


* zentient !e No de SL 


[ss 
' 


HV v 
MREET 


4 
#2 
FIN 
# 


ERC 
sk: 


is 


{ V 
de: 


DER? 
#© 

RET 

CHDRAW 

ÊMPE 


1 v 
ss 


DEF: 


l'Adr de TABLE 


DOn sauve 
Charoer avec GR$ 
Ein de TABLE ? 
Qui. alors FIN 
Fin de ligne © 

Non alors GRt 
Retour =olonne deb 
Saut d'une ligne 
Seconnencer 
Case vide © 

Qui. alcrs suite 
Ranger Ë 

Avancer d’une case 
Ketéurner au debut 


HYXD,PC On raciüpere 


"3 
3 


IN rs Li 


Ps de 
5 
D 


ns 


Es 44 
Hs 7 
u 


+ 


28 TABLE 


8% RAQUET 


32  EFFAC 


TABLEE 


CCR 
FCE 
CP 
FCP 
FCp 
FCE 
2CP 


ÊCE 


cro 


La tdi utatriuasrt 


EC 


TOUF NCIF 
SEC 


FONE VERT 
cer 


Le 


FORME BLANCHE 

fa] 

EFFACE LE CURSEUF 
ECT 


SAQUETTE 
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[RCRE EEE TON (ST 6 UE CIPEUETE ES EEE IR) 


IOUS-PECSRAMME DE LECTURE 
DU CLAVIER 


ENTREE : L cortient l'adresse de 
la table de codage des 


touches, 


SORTIE : D revient avec le code de 
la touche enfoncer : 


£FFFE aucune 


UE Ut nt DS ot Dé + Je = 9 ve + 


ra ste ontnnrae 


or & costient !a 
eur 15 COETA et £ 
1 


Pt 6 DR OS Dh D Et +6 OS ve et #O nn ét Dé dE De 


Se € 0 26 à 


LÉCES TRUE CUS BUTS E EE ETS ATTENTATS EL 


SCO PORTA, CO. ETES 


ECO -PNRTE Egt $ETCE 
SD ES CCI CET PR. AiMé rocarge 
Dar i0CT CCEC CNED HSFEFT Fin de table” 
ACCt 27 SES FIN Qui. sfcrs sortir 
ACCT UT ge STE FORTE Selection de lions 
i0Cs Pi  ETT9 CMP& CRTA Touche reconnue? 
Boo NT BEC ER Qui. alors FIt 
Ange On EE SFA LECT Mon, cn recommence 
RACD TE CIN BTE 

XE00 END 


sur 
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2. Déplacement du canard par action sur une manette 


3002 © 


AQQE 


a007 ! 


ÉNAe 
300e 
AOC 


x:i0 


‘4 
0€ 
EBOZ 
FE 
ACER 


LUTREURAUESERETREES ERP EEAT RSA SRI TT ETS 
Û ; 


Ÿ Ls Srogranne dasscns us CANGFT er { 
# =osnne |, liene 12, t 
El | 1 
Ë FLiz 2ar 3cti2n zur a sanette 
Ÿ © on seut je Jesiace” à sroite OU à 
# Jaune. L 
H { 
FRET ENT EBCES EEE S EDS CU SDES LENS EERCATES TE 


GR 
SEENAF LS), c#200 
CRDRAR ECS té: 
ZHPL ED ET 
JUS, ER 7 

IE  thOiC 


INETIALICATION SE L'ECRAN 


on 2 ee en 1 


CIFE #4 S=47 
BEC SUITE Où aicrs ouitte- 
JTE Non. 

EFA DEPI 3icrs recORmMENCEr 
CUITE JER BOF  Soite bleue 
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CE  ACBF 


um 
FF &02 


AIS BE  AO0BE 
401C !CBE A0BD 
AQ2O CE  A0E7 


3023 BD 4000 


ACCE 4F 
A0Z7 ED Eos? 


AOCA [1 00 
AÇeC 27 Fe 


AUCE CH 
AN30 JL 0 


AIZ BE AOBE 
BOSS EC 9026 
A0!8 17 EC 
BOTR JC  ADRC 
AUD 20 


ACSF C1 07 
ÿ041 24 € 
A045 FE  A9BE 
AÔ4E SC 9901 
A04S 27 DE 
3048 TA  GCRC 
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ne fl ne Æù 24 


LDU  #CERGR Leout ces 5K$ 
STE {KERAE 

t 

} 

Ÿ CECCIN OÙ CANARD 

} 

k 
LDX , COLCER Colonne du zararc 
LDY  LISCAN Lione du zanard 
tot #CANAEC Table du dezair 
JSR  DESS! 

; 

! 

f CCCSFRAMME 9FINCIPAL 

H 

Ü 

MONET CLEA Manette 9 
JSF JOVE Test manetre 
CMFB 0 Manette 35 regoc? 
ÉEC © MANET ia. alors boucie- 
CMPE #7 Manette 3 droite 
ENE  GAUCS Nos, aicrs gauche” 
EX ZCLCAEN 
CMFY #7: Bout 3e licne” 
SE MANET  ui.alors coucler 
JNC COLCAN+! Nor,.aiors avancer 
CFA DSEF 

GALCH CMFP #7 Manette 3 cauche” 


INITIALISATION DES 564 


ENE  MANET Non. alcrz Jcucler 
LDY COCA 

CMFX #1 Debut de !icne? 
BEC MANET Oui.aiorz boucie 
CEC COLCAN+1 Nen.alcrs rec: 


AO4E FE AOËBB DEPL LDX  COLCAN On charge 1es 


A061 iCBE A0BD LDY LIGCAN aouvelles coorcon. 
ASSE EL  A99f JS DESSY et or dessine, 
3668 29 CC SFA MANET Puis on recopnence 


N D'UHE BOITE SLEUE 


ve 24 et + ++ 
t= 
[Ra] 
[tr] 
tu) 
4 
Z 


ACSA 2E 091 EOXF  LIX #! Colonne ! 

BCE 108E 099€ LEDY #14 Ligne 1 

3661 6 ‘E LDB  ##1B ESC 

AtéT BD ES07 èSF PUTE 

36e Cë 44 DE #$44 FORME BLEUE 

2669 BD ESS JSR  FUTC 

ACER CE 7° ie #2 Caractere PLEIN 
nGéT FT £94i STE  CHDRAK 

Ao75 ED ECTS CASE JSK  CHP_ £ase bieus 

407s 20 M -EBX !,X Colonne suivante 
AOTE SC 0927 CMPX #4! Fin de cciorns 
3070 2 Fb SHE CASE Non, on “ecsnmenc2 
AQTA BE  DO0t LEK h lere :cionne 
a07D T1 2 ÆEN Et _igre suivante 
AGE 1O8C 0019 CHEV OS Fin de ligne 
ACBZ 24 EP ONE  CÉSE Non, 91 “222mmence 
ADS CE !E LDE #SIE ES 

1097 SD E807 JERK  SUTE 

EOSA CE 41 LDE 4347 FORME VERTE 

ec BD E03 JER PUIC 

BQQE Ie RTE Entir 


ZOUS-PROGFAMME DE DESSIN 


De 4 où x ba 


AO9E 34 JE  DESEI PSHE U.Y,5.[ 
002 Aë C9 DEBUT LDA .U+ 


A094 C1 2 CMPA #2 
A096 27 18 BB FIN 
AO9E EI CMPA  # 
SCO ZE 0 BNE  GFD 
AQQC AE ET ÉDk à $,E 
AÛSE 51 1 LEAY i,* 
AOAQ 20 FE ERE  DEEU 
ROZ 91 0 SRE CMPA 0 
ADA4 27 Qi BEG  RET 
ACAE B7 6041 STA  CHDRAÿ 
AGA9 BD ESIT JSR CHF. 
SAC 50 O1 SET LEAX 1,1 
ACIAE 20 E2 ERA DEBLT 


PCEO ©S FE FIN  PLLE U,V,XD,PC 


BOB 1E TABLE FCE  S$1E EST 


VE Sù FCB $49 TEUR NOIR 

AOB4 1E FCE  $IE ESC 

OBS 5 FCE  $5s FONC CYAN 

AOBE 1E FCE  $1E ESC 

CET 42 FCE #42 FORME VERTE 

AOES 14 FCE #14 EFFACE LE CURSEUR 
AOB9 OC FCR  #0C RAI 

ROBE 0$ FCE  $94 EO7. 

A0EB 6001 COLCAN FDB 1 Position d’arivine 


ACEL 000€ LIGCAN FDE 12 du canarc. 
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} 


L 
? Attention : Ne oas oublier de debuter 
Ÿ --------- oar L’octet du bas ou1z 
Î celui innediatenent 
} superieur quand on definit 
ÿ on GF$ en assembleur. 
} 
Î 

AGE 07 DEBGE FCE 

4009 o5 ÉCRAN 

AC! og ECE © 

(C2 90 [CB 5 GF$ 10) 

ACT (91 FCE 

A0C4 0 Ce 

AQCE Q£ FCE 

aÛCE 00 FCE © 

ANC7 FE FCE 254 

A6C3 : E0 ECR 22 

BQCE Ci FCE j0% 

ACCA ee FCE 9 GR#11) 

AQCE Ci FCE 

aGCC 10 FCE 5 

HOCT où FCE Of 

AÔCE (0 ECR © 

ACC 1° FCE 11 

C0 3F ECB' ‘5 

AD: Fe FER. 

ACD2 7e FCB 27 ak$ (2) 

BOL? 9e FCE 15 

ACD4 51 FCE 

A9D= Gi FCE 

aCDé 60 FC 

AOL? FF FCE 2 

J0L8 FF ECR 255 

ACDe FF FCB 

ADM FF EC: CASE GR${2) 

AGDE FF FR 2 

AODC gi FCE 129 

ACDD 9! FCE 


ACDE M FC 3 


CS 


ts 3 10 O0) 1313 
D MS Te ne “ 


LR] 


» 1.3 10 co 
O4 5 3 


= 


3 


AAA 


CANARD FC 


000 Total Errors 


EDX= 
CANARD 
CASE 
CHDRAW 
CHEL 
CCLCEN 
DER! 
JEEGR 
DEPUT 
JEEL 
DES] 
FIN 
EAUCH 
FD 
JOYC 
-TGCAN 
MANET 
PUTE 
RET 
SUITE 
TABLE 
JSEFAF 
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ACSÉ 
ACEY 
AGE 
EC 
ESTT 
ACEB 
AQQE 
AQBF 
CAL 
ASE 
Ag 
A0EC 
ACTE 
SG02 
EE 
ACED 
ñQTE 
EBGT 
ADAT 
A10 
ÊQEC 
5È2L 


C3 C3 
em FO 


“n 


LT) C9 


mot ra 


Fi CT 


Ir 
Les) 


224 
24 
224 
24 
22 
102 
192 
224 
tac 
#70 


to: 


Tv. 


te! 
£2 
ci 
520 
192 
ss? 
$e4 
LR 


foi 


GR$ (4) 


Effacemert 


Éfiarenent 
Fin de licne 
Effacement 
5k$ (2) 

ER3 12" 

SR? 14) 
Effarement 


Fin du dessin 


Chapitre 5 


Comptage et affichage des points 


I. Le comptage 


Faire compter des points à un microprocesseur consiste en général à ajouter 
une valeur connue à un registre appelé COMPT rangé à une adresse connue. 
Il peut y avoir plusieurs registres : COMPTI, COMPT2,... 


Le microprocesseur travaillant en binaire, le compte résultant sera en binaire 
et il faut donc d’abord le convertir en décimal avant de l’afficher. 


Le 6899 possède heureusement une instruction inhérente, DAA (Decimal Ad 
just A), qui permet la conversion hexadécimal — décimal de l’accumulateur A. 
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Cette instruction agit comme suit : 


1. Un facteur correcteur FC est ajouté soit au 1/2 octet de poids faible, soit au 
1/2 octet de poids fort, soit aux deux. Ce facteur vaut 6 (%9119) ou 9 (700009) 


et est déterminé de la façon suivante : 
— 1/2 octet de poids faible (LSN) : 
si le bit de retenue H=1 
FC=6 


ou si ce 1/2 octet est >9 
FC =9@ dans tous les autres cas 


— 1/2 octet de poids fort (MSN) : 
si le bit de retenue C=1 
FC=6 fe si ce 1/2 octet est >9 
ou si MSN >8 et si LSN <9 
FC =@ dans tous les autres cas. 


2. Exemples : 
A = S$9A = % 00001919 
DAA — FC = 596 = % 00000110 
A (déc.) = % 00010000 = $10 (déc.) 


A = $9F suivi de INCA — A =% 00010000 avec H=1 (1/2 retenue) 
DAA FC = 596 = % 00000119 
Aldéc.)=% 910119 $16 (déc.) 


1. Comptage décimal de 9 à 99 


Le registre de comptage est COMPTI1. Le nombre de points à lui ajouter est 


contenu dans le registre POINT. 
Le sous-programme de comptage est alors le suivant : 


QU DS + 
006 4 CF OCOD CONS J,YV,GE,5, CC 
9092 IC FE ANDCC FE Msealde! 
KG ES üëf0 DA ZOMPTI £harat,. du camote 
ÜNO7 EE 091: EDR POINT Or a,oute lez nt: 
2904 19 DAA Asustement 2ec1ma! 
ÔOOE E7  O001G TR  COMPTI On sauve le conote 
AE. Se PULS U,Y,X,DP, DCS 
061 G2  COMPTI FCE si 
O1! M1 POINT FCB #01 

gogi ENT 


XOGO Total Errors 
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2. Comptage décimal de 9 à 9999 

On supposera cette fois que le compteur COMPT2 est rangé sur la pile utilisa- 
teur U en U +5. Le registre pointeur de pile U devra donc être initialisé avant 
l’appel du sous-programme. Le nombre de points à ajouter est dans le registre 
POINT. 


Le sous-programme de comptage est alors le suivant : 


29000 PGHS  D,CC  [n sauve 
LDE S.L Conpteur dans D 
ADDD POINT Ajouter les points 
EX6 AE Inverser À et E 
ANDCC #$FE Mise a 0 de C 


DAA Bjustenent decina: 
9cC BOUC1  C=0 -: on saute 
INCE On increnente E 


BOUC1 EXG  A.B Dh redresse 
ANDCC #$FE Mise a O de © 
DAA Ajustesent decisal 
STD. SU On range. et or: 
SULS  D,CC,.PC repart conne au 
debut. 


IL. Affichage du compteur 


Nous allons créer une table des compteurs qui contiendra successivement : 
— l’abscisse du chiffre de plus fort poids (2 octets), 

— l’ordonnée du chiffre de plus fort poids (2 octets), 

— la longueur du compteur : 9 si 1 octet, 1 si 2 octets, 

— Le compteur lui-même sur 1 ou 2 octets. 


Chaque compteur ainsi défini aura un numéro et la table aura donc la struc- 
ture ci-dessous : 


AGT7EC O1 FOINT FCE O1 
AO7E 000$ TAECFT FDE = 
ANEO 2000 FDE © 
POLE DO FCE (a 
ADGT O0 COMFT1 FCB © 
IRIS ES DO 14 FDE 20 
38 GOO0A FDE 10 
AGE 00 FCE (a 
31049 00 COMFTE FCB 0 
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Dans cet exemple la table TABCPT contient deux compteurs de 1 octet cha- 
que permettant donc de compter en décimal de 9 à 99. 


Le premier compteur, COMPT1, initialisé à zéro sera affiché sur l’écran en 
X=S5et Y =9, alors que le second, COMPT2, sera affiché en X = 29 ($14) et 
Y =19 ($9A). 


Lors de l’appel du sous-programme de comptage, COMPTA, on aura préala- 
blement mis dans l’accumulateur A le numéro du compteur à incrémenter du 
contenu de POINT, et dans U l’adresse de la table des compteurs (TABCPT). 
Le sous-programme de comptage et d’affichage suivra alors l’algorithme ci- 
dessous : 


"COMPTA" 
vi k J 


On sauve les registres 


Mettre dans B 
la longueur 
du compteur 


Pointer avec 
U l'abscie 
du prochain 
compteur 


Mettre dans A 
la tongueur 
du Compteur 


oui 


Co9" 
Comptage de 
#19 


AF+27 
AU 
de 2 chiffres 


On récupère 
tous les registres 


“FIN DE COMPTA: 


:C9999°"" 
Comptage de 
8 à 9999 


TAFFS 
Affichage 
de 


4 chiffres 
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AGIT 86 O2 DA #2 


ANO1S CE AOFE GUI L.D1 HTAECET 
AD18 HD nOID JSF COMPTA 
-AO01E 20 ES EFF FHOE 


AO1D 24 2 COMPTA FSHS US RDS DyCC 


AOF 46 EQUCLE DECE 

AGEO 27 0e EE Q STE 
AO22 EE dé, LEfiL' £,L' 
AOE4 E6 44 LDE 4. 
ACT ZT FT EE C EOUCLE 
AZ SES 4 EAU 1.1] 
ADZA ÀAé 44 ETIG1 LDA 4 AL 
AQGZC E& (RES EME ETIQZ 
AQZE ET ACTE PA RE pue 
AOS1 ED AO4C JSF AFF 
AGE 10 Dé ER£ FIk 
SOZS ED ROSE ETIAQOT JSF Cor 
AGES RTC AQSE JEF FF A 
AQSC ZE FF FIN FULS Le ar SD ECSFE 


Les deux sous-programmes d'affichages AFF2 et AFF4 utilisent le même 
corps principal, un sous-programme AFFICH, permettant l’affichage de deux 
caractères placés successivement dans le registre CHDRAW avant l’appel de 
CHPL. 


Le sous-programme AFF2 n’affichant que deux chiffres appelle une seule fois 
AFFICH après avoir initialisé X et Y, alors que AFF4 appelle deux fois 
AFFICH. 

Les registres X et Y sont chargés en mode indexé par rapport à la pile U avec 
les coordonnées des compteurs. 


On trouvera ci-après l’exemple de AFF2 et AFFICH ainsi qu’un court pro- 
gramme de test de COMPTA permettant la gestion de trois compteurs : 

— COMPTI est affiché sur deux chiffres en X = 5 et Y =@. Il compte donc de 
9 à 99 et est incrémenté de 3 points à chaque fois que l’on appuie sur la touche 
A du clavier. 

— COMPT2 est affiché sur deux chiffres en X =29 et Y = 19 et compte égale- 
ment de 9 à 99 par pas de 3 lorsque l’on appuie sur la touche P du clavier. 
— COMPT3 est affiché sur quatre chiffres en X = 19 et Y = 19 et compte donc 
de 9 à 9999 par pas de 3 lorsque l’on appuie sur la touche B du clavier. 
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ACÈF 
ao?! 
ACTE 
ES 
ATe 
3078 


ACTE 5 


AT 
AGEi 
3004 
RAGE 
8(20 
AÔBE 
AGE 


LATE 
3007 
A094 
A09Ë 
ACQE 
4007 
Aîce 
A0CA 
AC9C 
Ace 


ACAE 
AGAs 
AÔAE 
ANAB 


AQAE E 


AGLE 
ACES 
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2€ 
19AE 
ge 
B? 
86 
La 


L14 


+ 


C4 
42 
Hd 
LA 
AE 
nr 
AOC 


Le] 
22 


AFF2 


BFF4 


AFFICH 


#$=c 
CHDRAW 
CHP- 
{XX 


LEA 
480F 
#2 
CHDFAN 
CHP_ 


1.X 


‘*AFFICH” 


“harger B 
avec l’octet 
à afficher 


On garde le 
1/2 octet fort 


On le met 
dans le 1/2 
octet faible 


On lui ajoute 
$39 
+Code ASCII 


On range B 
dans CHDRAW 
CHPL 


On passe à 
la case X 
suivante 


Recharger B 
avec l’octet 
à afficher 


On garde le 


1/2 octet faible 


On lui ajoute 
$39 
— Code ASCII 


On range B 
dans 
CHDRAW 


| CHPL 


On passe à 
la case X 
suivante 


‘FIN de AFFICH” 
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PROGRAMME DE TEST DE COMPTA 


941 CHDRAR EG esnst 
353 CHPL EG  #EBT 
ESOE GETC FÊL  $E9x 


Aie 2PE £A000 


ACOË BD ECQ£ FFOE JCE GET: 
1 M CMPP #9 
ACOË 27 Fe BEC  PFDE 
A007 C1 41 TISTA CMPE #5 
A0 2€ (4 ENE TEST 
ACB Œ 5! DA  #! 
AOOP 20 GE BRB Su: 


<C  TESTP CMPP 4 
( TESTE 
02 DA #2 


E 
2 
n 
32 02 
Fr 
> 
21 
Lan) 
Æ 
rq 


1015 dé 
AO1S 20 Os BRF SU! 
Lat7 + 47 TEITS TNCO 4< 
SOI UNE BN= PRO: 
SCI2 % LT 5H € 
RCIL CE ASE OU Le range" 
320 BE ie EF COMTE 
UT I D ERA CG 
AMIE TC POMCTA COLE “ DES 
es 24 JF  CCOMTA SOU uvy pen 
AUD 36 EPUCLE DCCE 
Ab = © JE SEQ  ETIE! 
ACIE Ei 44 TE €! 
MIE 4 EU 8,5 
AUzE on 218 
nn (PE SER  POUCLE 
BOTI 3 4: LEAU: * HE 
AT OA La] à 
Mn, 02 FA BQurte 
AOTE A 44 ETION LEG 
NT & 2% ENE  ETI 
ACTS HE age JER [ob 
3CIC DD AMF JSR AFF 


ACTE 20 94 BR FIN 
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4957 ETIQZ JSR 


pü44 BR  AO7N JSF 
AG4T 7E FF FIN PULC 
AGE 75 (7 [oc PSHE 
ACAB IT CE GNDCC 
BO4D A 4 LDÉ 
A4 BP  AOPT ADCA 
A°S2 1© DAE 
AQEZ 47 45 CTA 
(A et RE: PULS 
3957 74 97  (Cou0o EgHc 
ACES EC 4° LOD 
A0EB FT  AOBI ADED 
POSE 1E 99 EXE 
d0Et 1C FE ANDC 
ACET 1S DAE 
ACEZ T4 61 BEC 
AQES SC INCE 
A06E !E 90 BOUC! EXC 
ACER IC FE ANDCC 
AOEA 19 DAA 
ACER ED 4° STE 
AGED 75 87 PULS 
ACHF 24 2T AFF  PSHE 
AQ7! AE C4 LDX 
ACTZ IDAE 42 LDY 
ME dE 0 DA 
RATE BD AN0 JSF 
A07E 7E 2 FULS 
ACID 34 22  ÀFF4 POHE 
MT M OC TX 
AO: IOAE 4 LDY 
3004 BE GE DA 
ROSE ED  A99? QSF 
2080 96 © LDA 
AÔBE ET A090 JSF 
AÔGE IE BE PULS 


Coove 
AFE£ 
U.Y,X.DP,D, CC, FC 


D. CC 


#SFE Mise a 0 de C 

Al Chargt. du compte 

POINT+! On ajoute les pts 
Asustenent de:ina! 

4 On sauve le compte 


D,CC,PS 


D,CC 
CAT 
POINT 
A.E 
NSFE 


BGUC1 


A,B 
#$FE 


SL 


D.CC, PC 


FT 
AFF ICE 
VX A,PC 
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AQTO EE 
Et 
AO9A E4 
A9S 54 
AG9E 54 
AG97 54 
A908 CE 
AO9A 57 
AO9D EC 
SGA TO 
AOAZ EE 
ACR& C4 
AOÂE CE 
AGAB F7 
AQAE EL 
ACFE 20 
ACEQ 35 
CE! 


CE 
AORÈ 
0e? 
PoRe 
4cee 
ACRE 
A0BD 
ROBE 
àCEF 
BQCI 
S0CS 
ACC4 


30 
(41 
ESS 
(1 
C£ 
OF 
7é 
ÉTELA 
EbIS 


nt 
ve 


9907 8! 


Je 


5005 
ao 
99 
oc 
2014 
QCOA 
00 

06 

3008 
C00f 
91 


AFFICH 


TABCPT 


COMETI 


COMPT2 


DB 
ANDB 
LSRE 
LGRB 
LGRE 
L5RB 
ADDE 
CTE 
JSF 
LEAX 
LEE 
ANDB 
ADDP 
STE 
JSE 
LEAX 
RTE 
FDE 


FLE 
FDP 
FCE 
FCE 
FDE 
FDE 
FCE 
FCE 
FDE 
FDE 
FCB 


0006 COMPTE FDB 


3000 


00000 Total Errorz 


Si le contenu du registre POINT est supérieur à 9, 


END 


&,L 
#$F0 


LEE 
CHDRAW 
CHP: 
LX 
EL 
#$0F 
#2 
CHDFEN 
CHP_ 
1.X 


$07 


il est conseillé de faire un 


ajustement décimal de ce registre (Via AcCA) avant l’appel de la routine 
COMPTA, ceci afin de n’ajouter entre elles que des valeurs codées en déci- 


mal. 


Le non respect de cette règle peut évidemment .ntraîner des erreurs. 
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Chapitre 6 
Musique et sonorisation 


I. La musique 


Le moniteur du TO7 contient une routine, NOTE, à laquelle on accède en 
&HEFBIE. Cette routine utilise quatre registres : 


— OCTAVE, d’adresse &H6936, (2 octets) contient un nombre compris entre 
0901 (octave la plus haute) et 9919 (octave la plus basse). 

— DURÉE, d’adresse &H6933, (2 octets) contient un nombre compris entre 
9901 (durée la plus courte) et 9969 (duré la plus longue) qui correspond à une 
note ronde. 

— TEMPO, d'adresse &H6831, (2 octets) contient un nombre compris entre 
9991 (tempo le plus rapide) et @GFF (tempo le plus lent) qui définit le tempo 
général de l’air à jouer. 


Donc — DURÉE RÉELLE D’UNE NOTE = TEMPO x DURÉE 


— TIMBRE, d'adresse &H6835, (1 octet) contient un nombre compris entre 
#9 (son continu) et FF (son se dégradant très vite et perdant de sa pureté). 
Quand tous ces paramètres sont définis, il suffit alors de mettre la valeur hexa- 
décimale de la NOTE dans l’accumulateur B avant d’appeler la routine 
NOTE. 

Les codes des notes sont les suivants : 


PAUSE DO DO# RE RE# MI FA FA# SO SO# LA LA# SI UT 
30 31 32 33 34 35 36 37 38 39 3A 3B 3C3D 


Pour jouer un air en assembleur, il suffit de fabriquer une table TABAIR qui 
contiendra successivement les valeurs de TEMPO, DURÉE, TIMBRE et 
OCTAVE, puis les différentes notes à jouer. 

La table se terminera par EOT (&H@4). 


C’est le pointeur de pile utilisateur U qui sera chargé avec T ABAIR et l’accu- 
mulateur B qui en mode indexé par U ira chercher les valeurs dans la table. 


Dans une première partie d’'INITIALISATION, ces valeurs seront rangées 
dans les octets respectifs des registres TEMPO, DURÉE, OCTAVE et TIM- 
BRE. 


Dans la deuxième partie, après chaque note lue dans la table et rangée dans B 
on appelle NOTE jusqu’à ce que B lise EOT. 


Essayez donc ce petit programme qui joue ‘‘A la claire fontaine”” (sans faire 
varier la durée des notes). 
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ROOB 7F 
ACOB 7F 


AOOE E£ 
4019 F7 
015 EE 
015 F7 
ACIB EG 
AOIA F7 
AO1D E6 
AOF 57 
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QAA TES OEUIT CNT ISTSTETETS RTS STATE 


4 7e 


SR O6 PR ver dE ne ft pæ D où % 4 
‘ 


LENIETENRERSANSAENTINEEANEENENNITEEIEÉ 


TEMPO 


LAIT QURCE 


bOZT 
bCIE 


Ci 
5072 
EG 


EQS4 


- CC 


S0ZE 
C0 
6027 


TIMEF 


MOTE 


MUCIO 


TEWFS 
DUREC 
TIMPPE 


DCTAVE +607 


f 

MUCIGUE t 

{ 

Ce Srooramte sermet ia creati À 
sun air de ausiouse, [l'utilise le 
grogramne soniteur NOTE aucuel cn 1 
sczede an SERIE, st les registras : # 
1 

SLETL 12 cctets) Û 

SECTI (2 cetetz L 

$EOIE ‘1 cctet) f 
(T'ectets: Î 

f 

j 


au 
ECL 
E CA 


3£ OCTAVE EL 


D [nr sauve, 
ÆTABRIF Ür gcinte l'air 


Inctislisation 


DUREE  f des coids fort: 
OCTAVE f des registres. 


.t+ Valeur de TEMPC 
TEMPO+ 

.U+ Valeur de DUREE 
DUREE +1 

.U+ Valeur de TIMBRE 
TIMBRE 

U+ Valeur de OCTAVE 
DCTAVE +1 


On joue l’air 


Table de l'air a jouer 


1 
à022 Eb CC BOUCLE LDB 
A024 C1 04 CHPE 
028 27 0$ BEG 
A028 BD EBIE JSR 
A02B 20 F5 BRA 
AO2D 2E CE FIN PUS 

Li 

L 

1 


AGE 9518 TABAIF 
AQ3: 0904 


AOC 131 
ACTE IIS 
2077 7328 
ACTO 3371 
AQTB SAS 
ACT #S3E 
AOTF 2504 

0000 


90009 Total Errors 


BOUCLE RCZC 
JEBUT  AOQE 
DUREE  EOS 
FIN AO2D 
MUSIO  AQ9û 
NOTE  ‘ÆBIE 
CCTAYE 6072 
TAEAIR  AO2F 
TEMPO  E97: 
TEMÈRE BOIS 


FDE 
FDE 


CT 
CIN 


NOTE 


BOUCLE 
U,L.PC 


$0518 
$0004 
#2131 


gxste 


LR 
#3335 
$335i 
#2135 


ze 


d'u — 


$1504 


Non.alors iouer 


Si on veut pouvoir modifier les registres pendant l’air, il suffit de faire précé- 
der le nouveau contenu du registre par un code hexadécimal, par exemple : 


TEMPO — code ÿA 
DURÉE — code GB 
OCTAVE — code ÿC 
TIMBRE — code GD 


91 


Après chaque lecture, on testera B et si cet accumulateur contient un code, on 
rangera l’octet suivant de la table dans le registre concerné, sinon on appelera 
NOTE. 


LELELE ETS EEE EC DETTE EETEETENEEEEE EEE 
MUSIQUE 


L 

} 

É 

L Ce progranne verset la creation 
t d’un air de ausique. [l utilise le 
3 progranne noniteur NOTE auquel on 
t accede en $EBIE, et les registres : 
Î 
L 
} 
Î 


- TEMPO $603%1 (2 octets) 

- DUREE $6033 (2 octets) 

- TIMBRE $6055 (1 octet) 
3 - OCTAVE $6038 (2 octets! 
L 
LRÉTELEUÉEECEEES EE TITCEORBEIT EE EPRI TES CE 


+ et +0 6 +0 Pt 6 99 8 + LS 49 2e 4e 


5031 TEMPO EGU  S$4031 
bOSZ DUREE EQU  $403 
3035 TIMBRE EQU  $60IS 
bO3E OCTAVE EQU $605E 


EBIE NOTE EGU  SEBIE 


A000 DRE $AO0G 
4000 24 46 NUSIG PSHS L.D Dn sauve. 
A002 CE  A02F LOU  #TABAIR On pointe l'air 
t 
} fnitialisation 
Î 
MCE UE 2:07] DEOUT LS TEMPO f Mise 3 ar 
BOSD 7 LT CLE QLREE ? dez gci1ds forts 
ÉD JE SOS CLR  ŒCCTAVE À des recistres. 
} 
Ë In ace l'air 
} 
ASE E£ TS  FONCLE DE .J+ Sremere ncta 
ACIS [1 92 CNFE #£ Est-ce la fir7 
GI. GED SA Jui. sicrz SIN 


Vht A4 

1. 

aete Ti ms 
Van = 5 
nan CT nœn 
tar CET 


UE DE D TESTS 
POS 3 97 

RAT TC: © 150 

ARE 57 £A7A 

APS US 

pere C4 07  TESTI 
AGIC DE 7 

AGIT Et CT 

MTS FT +07 

ACTT 2 D 

AGE C1 SD  TECTI 
ANTT D 07 

ACTO Et © 

ACTE F7 LATE 

A92E 20 © 

A04: BD ESLE TECTS 
AGIZ 20: «E9 

A94E 2 Ce  FIK 


X47 
A949 
3048 
AO4T 
NY 
ARE 


2R0S 
ce 
2004 
opoc 
:10B 


157: 


due 
AÇÈT 3525 
A9SE TEE 
)E7 LEE 

dt . 

ADS 307: 
1058 115 
AOSE LA Li 


7572 
1504 
3000 
co00C Tcta! Error: 


BCSF 
AOE! 


TABRIR 


T29+1 


mp 
BOUCLE 


a$ce 
TEST 
set 
PUFEE+! 
SULEES 


LEA 


FES 


.L+ 


EOUELE 
#£oD 
For 
Le 
TINERE 
BOUCLE 
NOTE 
BOUCLE 


CL, 


C 
JCTAVC+] Bet le 


Changt, di TEMPI 
Mon. alcrz TESTS 

Qu. alors chance” 
9 2t le ranger, 


Ecuc\er 


Chanot. de OLFEE © 


fan. d'O7S TESTS 
Qui. slcre Zharger 
Eet je rancer. 
Brucier, 

Chanct, 32 OCTAUET 
Jon, 3lcrz TETE 


Ecucizs” 
Chañat, de 


Mon, alcri 


CCTE 
Qui. slirs charger 
E et ie ranger. 


Souc'er, 
Non. alor: jDUS” 


Nste suivante. 


Tasle de l'air 3 iover 


£CADS 
LABS 
40004 
£DGC 
$7108 


e1e?: 


Yimre 


TE Te 


LA] 


777€ 
Jde 


77e 


rs Je 
ET 
CRIS 


eTiTe 
Fiice 
27679 


ne 


52504 


IE. Sonorisation 


Dans le boîtier d’extension jeux du TO7 se trouve un circuit qui convertit un 
nombre binaire de 6 bits en une tension d’amplitude proportionnelle. 

Par exemple si ces 6 bits sont : 

— 900909 la tension de sortie vaut Q volt. 

— #0901 la tension de sortie vaut environ 7 mVolt. 

— 111111 la tension de sortie vaut environ 459 mVolt. 


Dans ce dernier cas la tension a atteint son maximum. 


Cette tension est réinjectée sur l’entrée SON du TO7 et se retrouvera donc 
finalement sur le haut-parleur de votre téléviseur. 


Pour produire le son, il va donc falloir faire varier la tension du SON, c’est-à- 
dire la valeur binaire du mot de 6 bits. 


Entre chaque valeur de ce mot on attendra une certaine durée. 


Si par exemple on envoie tous les mots binaires de 6 bits de 200000 à 1 1111, 
en récommençant ensuite, On aura un son correspondant à la figure 1. 


Tension 


Temps 


4 
— be-DURÉE 


Une habile combinaison des mots binaires et des durées fournira donc toute 
une panoplie de SONS. 


Les 6 bits concernés sont ceux du PORTB du PIA 6821 de l’extension jeux, de 
PB9 à PBS. 


Il faudra donc programmer ces 6 bits en sorties, ce qui sera fait dans la partie 
initialisation du PIA nécessaire avant tout essai de sonorisation. 


Ensuite on lira dans l’accumulateur B les mots binaires de 6 bits que l’on stoc- 
kera dans le PORTB (&HE7CD). 
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La durée (contenu du registre DURÉE) sera mise dans le registre Y qui sera 


décrémenté jusqu’a zéro, avant de passer au mot suivant. 


Tous les mots seront rangés dans une table pointée par le registre X. 


Après chaque mot, on augmentera X de la valeur du PAS de lecture de la 


table. 


Ceci permet : 
— de lire tous les mots si PAS=1I 
— de lire un mot sur deux si PAS = 2, etc. 


Ce faisant on modifie évidemment le SON. 


On trouvera ci-après un programme permettant de créer des bruits dans le 


convertisseur. 


LRTEUTETE TE ELEC ET ETTS UNIT TE EEE 
PROCPANME DE COFAMON RE ÉPIUTS 


erch 


AMC IC DANUECTICOENT 
Luis me mmNetire issues 


QUFEE = Quree de !a tenocrisstion 
ERT = Gas c'asnanti. one 
TBE = febit de !3 tatle 

MEF = Nonbre d'ecvartilions 
SORTIES : 


FINTA = Fin de :& table 


PORTES en $ETCT 
CLAYIER en $E7C8 et $E7C9 


f 
} 
L 
} 
{ 
\ 
1 
À 
! 
À 
Î 
} 
( 
Ê 
L 
Ï 
Î 
| 
Î 
1 
| 
L 
L 


LELCRLIIS EVE CO EETTECE ETES SEE EEE LE) 


£7CD SORTEZ EQU  #E7CD 
ETCD DDRBZ EU SEC? 
ETCF CRE? EU  S$E7CF 
ETCE PDATAI EQU  $ETCE 
£7c0 PORTPI EQU  $E7C9 
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ACOQ 


3000 SF 
AO01 F7 
0004 CC 
ACO7 B7 
AOOA F7 


A0CD 24 
AOOF 1A 
ROf: GE 


au{4 £ 


RAT Ai 
ac 19 ©G 
AOIB E7 
ACIE 19RE 


AC22 21 
1074 2 
ROSE EC 
44 2 
ACIE 2C 


CD 15 


A2 
A0ïI 


D'akén 
E7 4 


AOT7 
QGC4 


9%6 


ETCF 
3FC4 
E7CD 
E?CF 


2E 
19 


ACT 


AGT3 


» 
C5 
ac, 
Cr 


F7en 
crus 


CF 


Bouc" 


BOUC! 


BOUC2 


9070 DUREE 


9! 
18 


on 
05 


PAC 
NEP 


TABLE 


DRE  $AO00C 


!nitialisation du PIA 


CLRB 

STE  CRB? Mise a 0 du CREC 
LDD  ##7F04 

STA  DDRB2 EG a Rô en sortie: 
STR  CRB? Acces au FORTB 


Creation du bruit 


PSHS  U,Y,X,DP,B,A On sauve 
DRCC 4410 Ne paz interrompre 


LD* #TABLE On coirts 


Line GG Cas de lecture 

LDE À Lire une valeur 
LEPX E.X Pointer le suivant 
STE FORTE Envover en ecrtis 


EY DUFCE  Pobut 4e temon, 


LERV  -1,V 

ONE POLCZ fin de temoo 

CHPX  HEINTÉ#! Fir de Table” 

81 BOUCI Non, alcrs boucler 
BFA  EOLCO 


EULS  ALB,DF,K V,ULFC 


Initialisation de la table 


FDE  +0070 


FE ! 
FE 24 
FC 
FŒ 5 


ACTE 0 FCB {0 


A0 CF CB 15 
ACT? E FCB ©! 
8078 !A FCB 26 
AOTO iF FCB 3! 
30 TA 24 FCB CE 
AOTB 2À FCP 4! 
a07C 2F F 7 
AOTD 34 FEB © 
AÔTE Fe FEB 7 
ACTF 5 FCE 6 
6040 2 FC 57 
A04! 34 FLE 52 
2042 2F FCB 47 
AO47 2 FCE 42 
A044 284 FCB SE 
AO4E 1e FCE  ?i 
9046 1A FCB 26 
A047 15 FCE 2! 
aus CF FCR 15 
A04® 9A FCE IC 
A04A Œ  FINTA FC 35 


0900 ENT 


00000 Total Errors 


On peut également très facilement modifier la durée entre chaque lecture du 
mot par décrémentation du registre DURÉE ce qui modifie également le SON. 
{voir exemple ci-après). 


AG22 31 3F  BOUC2 LEAY -1.Y 


4024 26 FC BNE  BOUC? Fin de teavco 
A0Z6 EC  AOSB CHPX  #FINTA+I Fin de Table? 
1029 D EC BLT  BOUCI Non. alors boucler 
A02B 7A  AOSD DEC  DUREE+! 
A02E 28 Eli BNE  BOUCO  Boucler 
A030 108E 0100 LDY  #$9109 
2034 10BF AOSC STY DUREE 
A03B 20 D/ BRA  BOUCO 
AOSA 35 FE PULS  A,B,DP, X, V,U,PC 

L 

D Initialisation de la table 
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Chapitre 7 


Les modifications pour le TO7-78 


I. Gestion d’écran 


L'une des principales nouveautés du TO7-79 est la possibilité d’affichage de 
16 couleurs : 

— 8 couleurs saturées qui sont celles du TO7 modèle 1. 

— 8 couleurs pastel, (1/2 teinte). 

En mode caractère, l’utilisateur pourra fixer la couleur du TOUR, du FOND 
ou de la FORME à l’aide de la routine PUTC, parmi l’une des 16 couleurs dis- 
ponibles en utilisant la même séquence que pour le TO7 modèle 1, c’est-à- 
dire : 


LDB #ESC 
JSR PUTC 
LDB # COULEUR 
JSR PUTC 


Les couleurs saturées sont définies comme pour le TO7 et les couleurs pastel 
comme suit : 


FORME FOND TOUR 
$70 $78 $89 GRIS 
$71 $79 $81 ROSE 
$72 $7A $82 VERT CLAIR 
$73 $7B $83 JAUNE POUSSIN 
$74 $7C $84 BLEU CIEL 
$75 $7D $85 ROSE PARME 
$76 $7E $86 CYAN CLAIR 
$77 $7F $87 ORANGE 


On rappelle que le symbole $ a le même sens en assembleur que &H en BASIC, 
c’est-à-dire que la valeur qui suit est en hexadécimal. 
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En mode graphique, la couleur du point se trouve dans le registre FORME. 
Mais dans ce mode, si on peut toujours accéder aux 16 couleurs pour un point 
FORME, on ne peut accédé qu’aux 8 couleurs saturées pour un point FOND. 


La correspondance entre le contenu du registre FORME et les couleurs est 
donnée dans le tableau ci-dessous : 


CONTENU de FORME COULEUR TYPE 


Décimal Hexadécimal 
— 8 $SF8 BLANC 
—7 $F9 CYAN 
SFA MAGENTA 
BLEU 
JAUNE 
VERT 
ROUGE 
NOIR 
NOIR 
ROUGE 
VERT 
JAUNE 
BLEU 
MAGENTA 
CYAN 
BLANC 
GRIS 
ROSE 
VERT CLAIR 
JAUNE POUSSIN 
BLEU CLAIR 
ROSE PARME 
CYAN CLAIR 
ORANGE 


Les deux routines PLOT et DRAW devront donc tenir compte de ces ajouts. 


Le fonctionnement de toutes les routines d’accès à l’écran est resté le même 
ainsi que les adresses des points d’entrée. 


La routine GETP (&HE821) ramène dans l’accumulateur B le code, (de — 16 à 
+ 15) de la couleur du point dont on lui a passé les coordonnées par X et Y. 
La routine CHPL est inchangée. 
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IE. Lecture des commandes 


1. Clavier 

L'accès au clavier est multiplexé dans le TO7-79 à l’aide de 3 bits du PORTB 
qui remplacent la totalité du PORTB dans la gestion des colonnes. 

Le fonctionnement du PORTA est inchangé. 


Les points d’entrée et de sortie des routines KTST et GETC sont inchangés et 
il est conseillé de les utiliser pour permettre la compatibilité avec le TO7 
modèle 1. 


Le code du multiplexage est donné dans le tableau ci-dessous par comparaison 
avec les ancienne valeurs des bits PB9 à PB7 du PORTB. 


Ancienneligne Matrice 


H 
G 


A 


J 
K 
L 
M 
B 
V 
STOP ACC CNT ENT RAZ C 


F 
D 
S 
Q 
A 


ss es 


9 
Il 
9 
l 
(] 
1 
0 
il 


PA, PA, PA, PA, PA, PA, 


2. Le crayon optique 


Utilisant les performances du GATE-ARRAY existant dans le TO7-76, les 
routines de gestion du crayon optique ont été modifiées pour permettre une 
précision du point. 


Pour plus de renseignements sur le fonctionnement du TO7-79 ont peut con- 
sulter l’ouvrage du même auteur ‘Manuel Technique du T07/T07-78°”° dans 
la même collection, où l’on trouvera d’ailleurs de nombreux programmes en 
assembleur : 

— copie graphique d’écran, 

— génération de bruit dans le convertisseur, 

— commutation des banques de mémoire RAM. 
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deuxième partie 


Chapitre 8 
Jeux de balle 


CODDO6GB0000 ! 

cH86069000000 

CABhSGOOOODE 
0660008: 


DD60000! 
ADO 


Tous les programmes ont été implantés à partir de &H734. On les obtient 
donc à partir de la cassette en faisant : 

LOADM ‘NOM DU PROG” 

EXEC &H7309 


I. Le squash 


1. Principe de jeu 


Le terrain du squash est délimité par 3 murs sur lesquels la balle peut rebondir. 
Le long du quatrième côté, le joueur peut déplacer une raquette afin de ren- 
voyer la balle. 

A chaque fois qu’une balle est renvoyée par le joueur sur le terrain, un point 
s’ajoute à son score. 

Le joueur a droit à 5 balles par partie. 

Le score et le nombre de balles sont affichés sur la partie droite de l’écran. 

La vitesse de déplacement de la balle peut être choisie par le joueur parmi 3. 

A la fin d’une partie, le joueur peut rejouer une autre partie en appuyant sur 
ENTRÉE. Dans ce cas la vitesse est inchangée. 

S’il appuie sur M, il peut changer de vitesse. 

S’il appuie sur RAZ, il réinitialise le TO7. 
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Trois versions du jeu existent : 


SQUASHI1 : le déplacement de la raquette se fait par action sur M pour mon- 
ter et D pour descendre. | 


SQUASH2 : le déplacement se fait par action sur la manette , vers le haut (1) 
pour monter et vers le bas (5) pour descendre. 


SQUASHB : se joue avec la manette ÿ. Un cube noir est au milieu du terrain 
sur lequel la balle peut rebondir. 


A chaque rebond sur les bords correspond un bruit obtenu par le BEEP 
(CHRS$(7)) du clavier. 

Par contre une balle reprise par la raquette envoie un petit air de musique ; 
une balle perdue envoie un deuxième air et une partie perdue un troisième. 


2. Structure logicielle 


Initialisation de l’écran 
L'écran est : 


FOND VERT 
TOUR NOIR 
FORME BLANCHE 


Une boîte noire est dessinée à droite de l’écran, de (34,9) à (49,24). Dans cette 
boîte seront placés les deux textes : 


TEXTI1 : BALLE ligne 1 colonne 36 

TEXT2 : POINTS ligne 12 colonne 35 

Les compteurs COMPTI1 et COMPT2 remis à zéro seront affichés en noir sur 
fond vert. La définition en noir est faite au début du S-P COMPTA et remise 
en blanc et en ressortant. 


Les bords du terrain, rouges, sont tracés ligne 7, colonne 256 et ligne 192. 
Puis on place la raquette et la balle. 


Test du clavier 

Ce test utilise le S-P de lecture du clavier étudié au chapitre 4. Il sera remplacé 
dans les versions 2 et 3 par un test de la manette ÿ. 

Déplacement de la raquette 


Lors de son déplacement la raquette s’auto-efface puisqu’elle est encadrée par 
deux espaces. 


Avant de la monter, on teste pour voir si elle n’est pas déjà en haut. 


De même avant de la descendre, on teste pour voir si elle n’est pas en bas. 
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INITIALISATION 
DE 
L'ÉCRAN 


INITIALISATION 
DES 
COMPTEURS 


CLAVIER 


OUI 


LA BALLE 

EST-ELLE 

SUR UN BORD 
? 


VA-T-ELLE OUI- 
SORTIR 
DU TERRAIN CHANGER SON 
SENS 
DE 


DEPLACEMENT 


LA RAQUETTE 

EST-ELLE BIEN 

PLACÉE 
? 


EFFACER l'ANC 
& 
DESSINER LA 
NOUVELLE 


Y-A-TIL 
ENCORE 
DES BALLES A 
JOUER ? 


NO 


JOUER L'AIR ! 
AUGMENTER 
LE SCORE 


jouer l'AIR 2 
AUGNENTER LE 
NOMBRE DE 
BALLES. 


CHANGER LE 
SENS DE 
DEPLACEMENT 
DE LA BALLE 


PLACER UNE 
NOUVELLE 
BALLE 
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Déplacement de la balle 


Avant de déplacer la balle, on regarde : 
— si elle ne va pas sortir du terrain, 
— si elle ne rebondit pas le long d’un mur. 


a) Dans le premier cas on vérifie si la raquette ratrappe la balle ou pas. 


Si la raquette est en face de la balle on va vers un sous-programme ‘GAGNE”” 
qui après avoir joué l’AIR1, fait rebondir la balle (c’est-à-dire change le sens 
de progression des X) et augmente le score. 


Si la raquette n’est pas en face de la balle, on va vers un sous-programme 
“PERDU” qui efface la balle, augmente le nombre de balles jouées et regarde 
si on a déjà joué 5 balles ou pas. 


Si OUI, il joue l’AIR3 et attend l’appui d’une touche pour redémarrer à la 
même vitesse ou tout recommencer. 
Si NON, il joue l’AIR2 et envoie Ia balle suivante. 


b) Dans le second cas, on regarde sur quel mur la balle rebondit pour en chan- 
ger correctement le sens, puis on envoie le BEEP et le jeu continue. 


c) Dans tous les autres cas on efface la balle dans son ancienne position et on 
la redessine dans sa nouvelle. 


Les constantes 
Les positions de la balle et de la raquette sont rangées dans : 


COLRAQ et LIGRAQ pour la raquette 
COLBAL et LIGBAL pour la balle 


Le sens de deplacement de la balle est rangé dans XBAL et YBAL. 
La raquette est définie à l’aide du GR$(@) et la balle avec le GR$(1). 


La vitesse de la balle est rangée dans le registre VITES. 


3. Listings des 3 versions 


RAISIRINRÉNAINNNNERENNNNRTETIERIETREINEI 


55 00 U U AA SS H H 
£ QOUUAAS HH 
SSS G 00 U U AAA SSC HHHH 
_ SA QUUAR  SHH 
565€ 600 UU À ASS H H 


2 + 2 + 26 46 26 se 
,® 26 2% + +40 2e + 


LE PERTE LT ERA CUEEETEE TT TETTET TE DES) 


ÿ Coovricht Michel OURY £ CEDIC/MATHAN 
1 le 18/2/1982 


(_7300 34 
7202 17 


ÿ  DEFINITIONS DES EDUIVALENCES 


L 


BOF PLOT EU 
E8OC DRAW EL 
5078 FORME EQU 
EB09 KTST EU 
CO06 GETC EQU 
EB03 PUTC  EQU 
9040 FORM  EQU 
0050 FOND  EQU 
9060 TDR  EQ 
0001 ROUGE EQU 
9002 VERT EQU 
0007 JAUNE EBL 
0004 BLEU EU 
0005 MAEEN EQL 
9006 CYAN EQU 
0007 BLANC EBL 
9000 NOIR EBU 
001B ESC  EQU 
EST: CHPL EU 
6041 CHDRAN EQU 
502D USERAF EQU 
E7CE PORTA EQU 
£TC° PORTB EQU 


1 PROGRAMME PRINCIPAL 


RG 


D-—--CHOIX DU MEN" 


7F DEPART PSHS U,Y.X,DP,D.Ci 


OS ss AD 4rD 


£1E 

fE8s: 
$é041 
$602D 
$ETCE 
#E7C9 


87300 


9221 LBSR MENU 
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! 


t-—--INITIALISATION DE L’ECRAN-—------ 


ATABLE 


.U+ 

#4 
INIBO* 
PUTC 
DEBUT 


RESC 
PUTC 
SFOND4NOIR 
PUTC 
#52 
CHDRAK 
#0 
XBDITE 
CHPL 
1.7 

pi 
EQUC: 
1.Y 
#2 
BOXF 


t -- INITIALISATION DES TEXTES -- 


7305 CE 7677 ECRAN LOU 
7308 E6 CO DEBUT LDE 
FO C1 94 CPB 
730C 27 0 BEC 
790€ BD  E80! JSR 
7311 20 F3 ERA 

ÿ 

; 

1 
7317 CE 1B INIBOX LDB 
7315 BD  EB0S JSR 
7318 Cb % LDB 
731A BD EBO JSR 
731D Ch 2 LDB 
TS1F F7 6041 STE 
7222 108E 0000 LDY 
7326 BE 7690 BOXF LDX 
7329 BD EBS3 BOUCI JSR 
732 30 01 LEAX 
TJ2Æ BC 0029 CPX 
731 4 Fé BNE 
FE 1 2 LEAY 
7335 1080 0019 CHPy 
7339 2b EB BNE 

1 

1 
TI SE 002 LDX 
73SE 108€ 0001 LDY 
7342 CE 7690 UV 
7345 E& CO BOUC2 LDE 
7347 C1 04 re 
7349 27 OA PEQ 
74B F7 5041 STB 
THE BD ESS JSR 
7351 30 01 LEAX 
7353 À F0 ERA 
7353 CE 76A2 BOULE LOU 
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NS 
#1 
NTEXTI 


7358 8 002 LIX #5 


735B 108 000€ UDY #12 
73SF E& CO BOUC4 LDB .U+ 
7361 C1 04 CPB 44 
7363 27 OÀ BEC  ZERC 
7368 F7  b041 STB  CHDRAN 
7369 ED ESS JSF CH. 
El 20 SJ LEAX 1.5 
736) 20 FQ ERA  BOUC4 
ZLF CE 1E IERC IP MT 
7571 BL ESC JSR  PUTS 
HA CE 52 LDB  #FOND#/ERT 
7274 BC ESC JSF  PUTC 
7579 % 0 LDA fl 
7S7B CE  7ôF? LOU  #HTAKCF” 
PTE 17 BC _ESR CCWTA 
7691 9e 0 LDE # 
7383 17 0187 LBSR COMPTA 

L] 

ÿ -- RAQUETTE ET BALLE — 

LA 
Tes CE 7605 INIRAO LOU  ADEPGR 
7390 FF 6020 STU  USERAF 
Tec BE 7892 LDX  COLRAB 
738F 10BE 7694 LDY  LIGRAG 
7393 CE 76Æ5 LDU  #RABUET 
7296 17 CIS: LBSR  DESS: 
7399 BE £0b LDX  COLBAL 
7390 10BE 769€ LDV  LIGEA. 
7ZAO CE 76EF LOU BALLE 
J3A7 17 017€ LBSR  DESS: 

Ÿ 


t -- DESSIN DU CADRE —- 
3 


TCA4 7F  £O4 CLR  CHDRAN 
73A9 Cé 01 LDE ROUE 
TAB F7 60 STB FORM 
J3AE BE 0008 LDX # 
7IB1 108E 0007 UN #7 
7385 BC ES0F JSR  PLOT 
7328 SE 0100 LDX  #25b 
73EB BD EBOC JSR  DRAk 
T2BE 108€ O0C0 UY M9 
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EB0C 
(008 
EBOC 


73C2 BD 
TSCS 8€ 
73C8 BD 


L 


USR 
Lx 
JSF 


DRAN 
#8 
DRAK 


-— TEST DU CLAVIER--—--"""—"- 


} 


7702 CLAV 
012E 


7692 


7308 CE 
73CE 17 
7SD1 RE 
73D4 10BE 7694 
7308 1087 FBEF 
73DC 27 08 
73DE 1083 FJEF 
7SE2 27 10 
742 À 


; 


ATOUCHE 
LECT 
COLRAG 
L'IGRAG 
2$FBEF 
TEST! 
#$F7E 
TEST2 
REBONL 


D-—-DEPLACEMENT DE LA RAQUETTE-——--- 


$ 


40 
REBONT 
-1,Y 
L'IGRAG 
DEPRAB 


#2! 
REBOND 
LY 
LIGRAG 
DEPRAG 


HRAGUET 
DESSI 


ÿ--—-DEPLACEMENT DE LA BALLE-------—-- 


T3Eb 108C 0000 TESTI CPY 
TÆA 77 IC BEC 
TEC 31 © LEAY 
SEE 10BF 7694 STY 
TeF2 20 0€ ERA 
73F4 108C 0015 TEST2 C#PY 
73F8 27 © BED 
73FA 31 21 LEAY 
TFC 10BF 7694 STY 
7400 20 00 ERA 
402 CE 76ES DEPRAG LDU 
7495 17  O11S LESR 

4 

À 
7408 BE 769E REBOND LDX 
740B 10BE 7698 LDY 
740F BE ESA LDA 
7412 F6  769E LDB 
7415 108€ 0001 COPY 
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COLBAL 
LIGBAL 
XBA 
YBA: 
fi 


7419 2 
741B SD 
7442 S0 
41€ F7 


7421 8C 
7424 26 
7428 8 
7428 40 


7429 7 


742€ 108€ 
7430 24 
T472 8D 
7434 50 


TATS F7 


7438 BC 
748 E 
2430 & 
AE 87 
7441 20 
7447 74 
7445 Cé 
7447 ED 
*q4à 25 


744€ 17 
744F 70 
7451 BF 
"454 71 
7456 10BF 
TAÉA LE 
745C EC 
TOSF LE 
7461 BD 
T4E4 CE 
746€ F7 
7469 BD 
74ëC CE 
[Q£E SD 
7471 CE 
47: BD 
1478 HÆ 
7479 70 
747B 26 
7470 16 


06 
2b 


7b9B 


0020 TESTS 
06 
1B 


769À 


0017 TESTA 
Q9E 
OF 


789B 


0002 TESTX 
2 


260A 

J 

94 PIN 
ES0T 

84 


QQCG DEPEAL LESK 


25 
7694 
A5 
7490 
1E 
Ego? 
4: 
E90: 
91 
E04! 
E973 
1 
Eg0? 
4 
E907 
7700 
:F TEMPO 
FC 
FF4B 


LEAX 
ST 
LEAY 
SL 
LDE 
JER 
LDE 
JSR 
DB 
STE 
JSR 
LDE 
JSR 
LDE 
JSR 
LDX 
LEAX 
BNE 
ERA 


EFFRC 

A.X 

COLBA. 

B,* 

LIGBA_ 

#ESC 

PUTS 
FORM+JAUNE 
PUTS 

##el 

CHORAM 

CHPL 

#ESc 

FUTE 
AFORM+BLANC 
PUTC 

VITES 

= X 

TEMPC 

CLAV 
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7480 54 
407 10BE 
7494 Si 
48e 1CAC 
7488 277 
-48D 31 


3é  TESTRE PSHE 


794 
b4 
0€ 


à 


748F 1OAC 64 


I 
7404 T1 
408 {CAC 


7499 26 


74BF BF 
7402 FE 
74CS C1 
7407 27 
7409 CE 
74CC 17 
74CF B6 
784D2 F6 
DS 16 


74D6 CŒ 
74DB 17 
7ADE 7F 
741 CC 
74Æ4 F 
7$E7 BD 
J4EA SL 
74EB 27 
74ED C1 
CAEF 10277 
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27 
2i 
E4 
15 


C6 CAGE 
770€ 

D1AB 

T6FT 

02 

0992 

7E9A 

$C 


25 PERDU 
SE 

01 

76F7 

0081 

009€ 

7606 

76FE 

06 

0F 


TTinN 


[ER TS 


Q17C 
7E°A 
769 
FF77 


T71A QUEST 
018D 

T4FE 

FFFF 

T4FE 

EBO6 ATT 


FA 
al 
FEOF 


LDY 


LEAY 
CMPY 
BEC 
LEAY 
CMPY 
BEG 
LEAY 
CMPY 
BNE 


PULS 
BSR 
LDA 
LOU 
LBER 
LDX 
STX 
LDE 
CMPB 
BEG 
LOU 
LBSR 
LDA 
LDB 
LERA 


LOU 
LBSR 
CLR 
DD 
STD 
JSR 
TSTE 
BEQ 
CHE 
LBEQ 


Ve X.C 
LIGRAQ 
LS 
4,5 
GAGNE 
1LY 
4,€ 
GAGNE 
1. 
4,5 
FERDL 


V,X.D 
HIRI 
MUSIG 
#TABCFT 
#2 
COMPTÉ 
XBA 
DEPBA- 


Y.X.D 
EFFAC 
#1 
ATABCP? 
COMPTA 
Lu 
COLBAL 
CONPT! 
#6 
QUES 
MAIR2 
MUSIC 
XEAL 
YBA- 
DEPBAL+3 


HIRQ 
MUSIG 
COMPTI 
#$FFFF 
COMPT2 
GETC 


T4FZ C1 OC CNPB 81° 
74FS 1027 7354 LBEQ  $EB2D 
T4F9 14 FE09 LBRA  ECRAN 


Ÿ 
3-—-SOUS-PROGRAME DE LECTURE----—-- 
1 


TAFC EC C1 LECT LDD .i#+ 


JAFE 1082 FFFF CMPD O$FFFF 
7502 27 (A BEG RETOUR 
7604 F7  E7C9 STB PORTE 
7507 81 E7C8 CMPA PORTA 
7508 27 02 BER  RETDUF. 
790C 20 ÉE BRA  LECT 
PAS, 2 RETOUR RTE 


î 
1-—-SOUS-PROGRAMME D’ EFFACEMENT--—--- 
Li 


TEOF 74 (O4 EFFAC PSHS B 


7511 C6 20 LDE M2 
"Si F7 6041 CTR  CHDRAN 
7Sié BD  ERT: JR OP. 
75195 84 PUS  B.PC 
} 
--—- GOUS-PROGRANNE DESS1-----—-- 


TS1B 24 75 DESSI PCHS U,Y.XD 
7610 A6 C0 DEBI LDA .U* 


7S1F 81 ‘02 CHPA 
Hal ‘1 REG FINI 
7323 81 01 CHPA #1 
3325 25 6 ENE  GRD 
7527 ÀE 62 LDX 2.5 
7527 51 2 LEAY  I.Y 
7528 20 F0 BRA  DEBI 
752) 81 90 GRD CMHPA #0 
752F 27 06 BEQ  RET 
Si B7  EO4I STA  CHDRAN 
7534 BD EBX JSR  CHP- 
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+77 7 
N] 20 


7539 20 
7atB 35 


750 54 
733F Cé 
734 BD 
7544 Cé 
754 BD 
7549 44 
7544 27 
7540 E& 
754E 33 
7550 SD 
7551 27 
7553 33 
7555 20 


75357 
7839 2b 
753B BD 
753) 8D 
7597 20 
rstl 8D 
7563 D 
7363 Ce 
7567 BD 
7S6À Cb 
756€ BD 
756F 35 


7571 34 


7873 IC 
737$ À 
7377 BB 
7STA 19 
737B A7 
TD 
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1.X 
DEBI 
U.Y,X,D,PC 


3-—-SOUS-PROGRAMME. COMPTELR-————- 


01 PRET  LEAX 
F2 BRA 
Fb FINI PULS 
3 
t 
7F COMPTA PSHS 
1E LDB 
E805 JSR 
43 DB 
E803 JSR 
BOUCLE DECA 
0B BEG 
La LDB 
4 LEAU 
TSTE 
Fb BEQ 
4 L'EAU 
2 BRA 
44  ETIQI LDA 
0b BNE 
14 BSR 
8 BSR 
04 BRA 
IC ETIOZ BSR 
JF BSR 
IB FIN2 LDB 
ES0S JSR 
47 LDB 
EBOŸ JSR 
FF PULS 
07 C99  PSHS 
FE ANDCC 
4 LDA 
76F2 ADDA 
DAA 
45 STA 
87 PULS 


U,Y,X,DP,D,CC 

HSC 

PUTC 
#FORM+BLEU 

PUTC 


ETIOI 
4.U 
SU 


BOUCLE 
1.U 
BOUCLE 


au 
ETI02 
We] 
AFF2 
FIN 
AFF4 
#SC 
PUTC 
#FORM+BLANC 
PUTC 
U,Y,X,DP,D,CC,PC 


D.CC 
#$FE 
SU 
POINT+1 


5.U 
D,CC,PC 


TS7F 24 
7581 E 
738 F3 
7586 1E 
7588 1C 
758À 19 
TS8B 24 
758D SC 
738€ 1E 
7590 1C 
7392 19 
7593 ED 
7395 35 


7597 34 
759 AE 


5 
87 


32 
C4 


759B 1O0AE 42 


75% 86 
75A0 D 
SA2 35 


TSA4 34 
SA ÀE 


05 
1© 


82 


32 
C4 


7SAB 10AE 42 


7SAB 86 
75AD 8 
7SAF Bb 
75B1 BD 
FSBT 35 


7585 Eë 
387 C4 
7589 4 
SEA 54 
73BB 54 
7SBC 54 
75BD CB 
7SBF F7 
75C2 BD 
20 50 
75C? C4 
"CE CB 
75CD F7 
7300 BD 


7513 30 
7305 39 


0 
06 
06 
02 


AFF2 PSHS 


AFF4 PSHS 
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3-—--COUS-PROGRAME MENU" 


75D6 CE 7680 MENU LDL 
7509 E6 CO BOUCS LDB 
TSDB C1 04 CHE 
"SDD 27 © PEQ 
73DF BD EBOÏ JSR 
752 20 F5 BPA 
75E4 SE OO0A TITRE LDX 
TSE7 108E 000À LEY 
JSEB CE 76A° LOU 
SEE E6 CO BOUCE LDB 
75F0 C1 04 CMPE 
v9F2 27 OÀ BEG 
TSF4 F7 6041 STB 
73F7 BD EBS3 JSR 
SFA 30 02 LEAX 
73FC 20 F0 ERA 
J9FE CE 7688 VIT  LDU 
601 Eb CO BDUC7 LDB 
7603 C1 04 CHPE 
7605 27 © BEG 
7607 BD ES07 JSK 
7H0A 20 F5 ERA 
T6OC BE 0002 REPONS LDX 
BOF 10BE 0010 LDY 
JB1S CE 7682 LOU 
7615 Eb CO BOUCS LDB 
7618 C1 04 CHPE 
H1A 27 OA BEG 
TEIC F7 6041 STE 
261F BD ER JSR 
7622 30 O1 LEAX 
7624 20 F0 ERA 
7626 BD EBOËE CHDIXS JSR 
7629 SD TSTB 
762À 27 FA BEQ 
262 C1 51 CNPB 
762 26 06 BNE 
7670 8E 2FFF LDX 
7633 BF 7700 STX 
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#TAE: 
.U+ 
#4 
TITRE 
PUTC 
BOUCS 


#C 
#19 
#TEXTE 
.U+ 

#4 

VIT 
CHDRAk 
CHPL 


V 
2.} 


BOUCE 


KTAE: 
.U+ 

#4 
REPONS 
PUTC 
BOUC7 


L 3 

#lé 
ATEXTS 
.Ù+ 

#4 
CHOIXI 
CHDRAk 
CHA 
1} 
BOUCE 


BETC 


CHOIX 1 
#49 

CHOIX 2 
NS2FFF 
VITES 


7636 C1 22 CHOIX2 CMPB #50 


7638 28 06 ENE CHOIX! 
IA 8E  !FFF LDX  #$1FFF 
763D BF 7700 STX  VITES 
7640 C1 33 CHOIXS CB 
7642 26 06 BNE  FINMEN 
b44 8E  OFFF LDX  #SOFFF 
7647 BF 7700 STX  VITES 
7648 3° FINMEN RTE 


} 
1-—--SOUS-PROGRAMME DE MUSIQUE --——- 
! 


&031 TEMPO EQU  #6031 
6033 DUREE EGU  $603 
£035 TIMBRE EQU  $6035 
603E OCTAVE EQU  $603£ 
EBIE NOTE EQU  $EBIE 


7648 34 O6 MUSIQ PSHS CL 


L 


Ÿ Initialisation 
“ED 7F ECS] CLR TEMPO 
1650 7F 6033 CLR DUREE 
7653 7F  b07b OR OCTAWE 
7656 EE C0 LDE  .U+ 
765 F7 6072 STB  TEMPO*1 
765 E& C0 LDB  .U+ 
765) F7 6074 STB  DUREE+! 
7660 E& C0 LDE  .U+ 
2b62 F7 HE STB  TIMBRE 
2665 E6 CO LDE  .U+ 
7667 F7 6037 STB  OCTAVE+! 

L 

Î On joue l’air 

L 


76bA E& CO AIR LDB .Ux 
76EC C1 04 CHPB 44 
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266€ 27 0 BEQ FINAIR 
7610 BD EBIE JR NE 
2673 20 F5 BRA AIR 


7675 35 64 FINAIR PUS  D.PC 


Î 
3-—--DEFINITIONS DES CONSTANTES-—----- 


7677 1B TABLE FCB ESC 


7678 47 FCB  FORM+BLANC 
7b79 1B FCB ESC 

767A ÿ2 FCB  FOND+VERT 
767B 1B FCB ESC 

ETC LIU FCB  TOUR+NOIF 
767 (C FCR  $0C 

TE 14 FCB  $14 

TBTF 94 FCB 

7680 IE TAB2 FCB ES 

7681 41 FCB  FORM#ROUGE 
7682 1B FCB ESC 

7683 50 FCR  FOND#NOIR 
7684 1B FCB ESC 

7665 E0 FCB  TOUR#NOIR 
7636 0C FCE $C 

7687 14 FCE #14 

7688 1B FCB ESF 

7689 4F FCB  #$4F 

768A 04 FCB 4 

7688 IB TABS FCB ESC 

768€ 4€ FCB  FORM#CYAN 
76ED 1B FCB ESC 

TbSE ac FCB $4C 

68F 04 FCB À 


7490 0022 XBOITE FDB  :4 


7692 0001 COLRAG FDB 1 
7694 000€ LIBRAG FDE 12 
796 0003 COLBAL FDB 3 


7698 
7b9A 
7L9B 


7HAB 


76° 


000% LIGBAL FDE 


01 


BAL 
YBAL 


TEXTI 


TEXT2 


TEXTI 


TEXT4 


FC 1 

FCE 1! 

FCC /BALLE/ 

FCB 

FCC /POINTS/ 

FCE 4 

FCC /SQUASH L’ 

FCB 4 

FCC  /CHOISISSEZ VOTRE’ 
SRVANY- 
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7h02 


RANNNSLIBANNESLSEHE 


20 


FCC 


DEBBR FCE 


RAQUET FCE 
FCE 
FCB 
FCB 
FCE 
FC 
FCB 
FCE 


1 VITESSE (1,2,3) :/ 


> 


tes CA Ca Ce A Ca 4 


Le] 


"ED 
TBE 


EF 
7bFO 


"bF! 


78F3 
T6FS 
74? 
76F8 
“Fe 
TEFE 
7EFD 
EFE 


7700 


7708 
7104 
7708 


70 
TT0A 
770€ 
770€ 
7710 


7742 
7714 
FLE 


7718 


THA 
7HC 
TPE 
7720 
7779 
siéé 
7724 


arc 


20 FCB 
02 FCB 
El BALE FCB 
0° FCE 
0001 POINT FDB 
002 TABCPT FDP 
9003 FDB 
00 FCB 
00 COMPTI FCBR 
0024 FDE 
000E FDB 
01 FCB 


FFFF COMPTE FDB 


FFF VITES FDE 


F/EF TOUCHE FDB 


FBEF FDE 
FFFF FDB 
O10E AIR1  FDE 
0104 FDB 
HI FDB 
ESA FDB 
3804 FDB 
1918 AIR2 FDB 
0205 FDE 
HS FDE 
1104 FDE 
010€ AIR  FDB 
0102 FDE 
2130 FDB 
3130 FDB 
HU FDB 
3504 FDE 
0900 END 


60000 Total Errors 


$1FFF 


$F7EF 
SFBEF 
SFFFF 


£010€ 
50104 
$7127 
#55%b 
$3804 


#1018 
$0205 
$7171 
53196 


£010€ 
£010° 
$7130 
$3130 
$3151 
$3504 
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AFF: 
AFF4 
AFF1CH 
AIR 
AIRI 
AIR? 
AIRI 
ATT 
BALLE 
BLANC 
BLEU 
BOUC 1 
BOUC2? 
BOUCS 


CHDRAN 
CHOIX 1 
CHOIX2 


CHOIXS 


CHPL 
CLAV 
COLBAL 


COLRAG 


COMPTI 
COMPT2 
COMPTA 
CYAN 
DER! 
DEBGR 
DEBUT 
DEPART 
DEPBAL 
DEPRAG 
DESS1 
DRAN 
DUREE 
ECKAN 
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GRD 
INIBDX 
INIRAB 
JAUNE 
KTST 
LECT 
LIGBAL 
LIGRAG 
MAGEN 
MENU 
MUST 
NOIR 
NOTE 
OCTAVE 
PERDU 
PING 
PLOT 
POINT 
PORTA 
PORTE 
PUTC 
QUEST 
RAQUET 
REBOND 
REPONS 
RET 
RETOUR 
ROUGE 
TAB? 
TAB 
TABCPT 
TABLE 
TEMPO 


TEMPO 
TESTI 
TEST2 
TESTS 
TEST4 
TESTRO 
TESTX 
TEXTI 
TEXT2 
TEXTS 
TEXT4 
TIMBRE 
TITRE 
TOUCHE 
TOUR 
USERAF 
ERT 
VIT 
VITES 
XBAL 
XBOITE 
YBAL 
ZERO 


6031 
73EE 
T3F4 
7421 
742X 
7489 
7458 
769€ 
TbAZ 
7649 
7bB2 
b0E 
7SE4 
7702 
0060 
6021 
0002 
75FE 
770€ 
769A 
7690 
7% 
736F 


LLC EE ES LOT TE CEA ETES EE TEEEEEET 


SQUASH 2 
Version Manette 9 


+ e 9 +0 40 + 2e + 
20 0 6 6 +4 dé ve 


SANIIIANENTIITSREINNIIARNEENITIRIILIL 


$ Cooyright Michel OURY & CEDIC/NATHAN 
t le 18/2/1984 


3 
ÿ DEFINITIONS DES EQUIVALENCES 
L 


E827 JDY EQU  $E827 
ES0F PLOT EQU  $E80F 
EBOC DRAN EG  $EBOC 
6038 FORME EQU  S$605E 
E809 KTST EQU  $E809 
E80b GETC EQU $EBOE 
E803 PUTC EQU  $EB80 
0040 FDRM EQL #40 
9050 FOND EU 550 
0040 TOUR EQU #60 
9001 ROUGE EU 1 
0002 VERT EU © 
9007 JAUNE EQU 3 
0904 BLEU EGU 8 
0005 MAGEN EU 5 
0006 CYAN EU  E 
0007 BLANC EU ? 
0000 NOIR EGU € 
0018 ESC EQU S1B 
EB33 CHPL  EGU  $EBS 
2041 CHDRANW EQU 56041 
602D USERAF EU 86020 
ETCS PORTA EQU  $E7CB 
E7C9 PORTB EQU  $E7CS 
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? PROGRAMME PRINCIPAL 


#-—--CHDIX DU MENU 


#-—---INITIALISATION DE L’ECRAN- 


U,Y, X, DP, D.CC 
MEN 


ATABLE 


.U+ 

# 
INIBOX 
PUTC 
DEBUT 


ÿ -- BOITE NOIRE À DRDITE -- 


7300 C6 

t 

1 
7300 34 7F DEPART PSHS 
7302 17  02CB LESR 

1 

1 
30$ CE 7671 ECRAN LOU 
7308 E6 CO DEBUT LDB 
70A C1 04 CMPB 
730€ 27 OS BEQ 
750€ BD EBOS JSR 
7311 20 F5 BRA 

; 

Î 
7313 C6 1B  INIEOX LDB 
7315 BD  EB0! JSR 
7318 C6 50 LDB 
TS1A BD  EB05 JSR 
TS1D CE ZX LDE 
7S1F F7 6041 STB 
7322 108€ 0000 LDY 
7328 BE 766A BOXF LDX 
7329 BD EB33 BOUC1 JSR 
732€ 30 01 LEAX 
732E 8C 0029 CHPX 
751 26 F4 BNE 
73 1 21 LEAY 
7335 108C 0019 CHPY 
7339 2b EB ENE 
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HESC 
PUTC 
#FOND#NOIR 
PUTC 
#52 
CHDRAW 
#0 
XBOITE 
CHPL 
1.X 
#41 
EOUC: 
L.Y 
25 
BOXF 


3 -- INITIALISATION DES TEXTES -— 
1 


732 8E 002 LDX ASS 
73SE 108E 0001 LDY fi 
7342 CŒ 74506 LDU  #TEXTI 
23435 E& CO BOUC2 LDB  .U+ 
7547 C1 04 CHPB #4 
7349 27 OA BEU BOUT 
7348 F7 6041 STB  CHDRAN 
734€ BD ESS: JSR  CHP_ 
7281 30 01 LEAX 1.X 
7353 20 F© BRA  BOUCC 
7355 CE 769C BOUCS LOU  ATEXT2 
7358 8 002! LDX Me 
7358 108 000€ LDY #12 
735F Eé CO BOUC4 LDB  .U* 
TE C1 (4 OPB 
7367 27 OA BEQ  ZERC 
7355 FF. 006! STE  CHDRAR 
Ste BD: C3 JR CHL 
Tige 70 01 LERX 1.2 
76b 20 F0 EFA  BOUC4 
7I4F Cé 1E ZERO LDE  #SC 
7571 BD £80$ JER  PUTC 
7374 CE 5 LDE  #FOND4VERT 
T8 ED ESQS JER  PUTC 
TF8 8 01 LDA #1 
iv CE ?ÉED LEU  #TABCFT 
2TIE 17  OBE LBSR  COMFTA 
7381 86 LDA #2 
7387 17  OIBI LESR  COMFTÉ 


t -- RAQUETTE ET EALLE -- 


7286 CE 76CF INIRAG LOU  #DEBGR 


7389 FF  602D STU  USERAF 
7380 BE 768€ LDX  COLRAQ 
738F 10BE 76BE LDY  LIGRAG 
7292 CE 6Df LDU  #RAQUET 
7396 17  O17C LESR DESSI 

7399 BE 790 LDX  COLEAL 
739€ 10BE 7692 EDY  LIGBAL 
7SA0 CE 76E9 LOU  #EALLE 
77A3 17  O16F LBESR DESSI 
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Li 
ÿ -- DESSIN DU CADRE -—- 
3 


7IA6 7F 6041 CLR  CHDRAN 
7349 Cé 01 LDB  #ROUGE 
TIAB F7 6058 STB FORME 
J3AE 8E 0008 LDX 4#E 
73R1 108€ 0007 LDY #7 
73B5 BD EBOF JSR  PLOT 
7SB8 8 0100 LDX  #256 
73BB BD EBOC JSR  DRAk 
TBE 108E 00C0 LDY #19 
7302 BD EBOC JSR  DRAN 
T3CS 8E 0008 LDX #8 
7:C8 BD  EB0C JSR  DRAK 


Î 
ÿ-—TEST DU CLAVIER----——-"""-- 
i 


TCB BE 768C CLAV LDX  COLRAB 


73CE 10BE 76BE LDY  LIGRQ 
7302 4F CLRA 

7303 BD ES2? JSR JD 
7306 C1 01 CMPB #1 
73D8 27 06 BEC TEST: 
FDA C1 05 CB 45 
73DC 27 10 BEQ TESTS 
75€ 20 22 BRA  REBOND 


3-——-DEPLACEMENT DE LA RAQUETTE---—--- 
} 


TJEO 108C 0000 TESTI CHPY #0 


73E4 27 IC BEQ  REBOND 
*JE6 31 SF LEAY -1,V 
73EB 10BF 768E STY  LIGRAD 
TJEC 2 © ERA  DEPRAQ 
JSEE 108C 0015 TEST2 CMPY 421 
73F2 27 BEG  REBOND 
73F4 31 21 LEAY  1,Y 
23Fb 10BF 768€ STY  LIGRAG 
TSFA 20 00 BRA  DEPRAG 
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F3FC CE 
73FF 17 


7402 BE 
7405 10BE 
7409 Bb 
740€ F6 
T80F 108€ 
7413 26 
7415 8D 
74H47 50 
7418 F7 


741B 8C 
T41E 26 
7420 ED 
1422 40 
7423 B7 


7426 108€ 
7428 26 
742C 6D 
742E 50 
T42F F7 


7432 8C 
T4 2b 
7437 40 
478 B7 
74SE À 


T47D 54 
743F Cë 
7441 ED 
7444 à 


7446 
7449 3 
7448 EF 
7ME 31 
7450 10BF 
7454 CE 
7456 BD 


0113 


j 


LBSR 


7EDF DEPRAG LDU  SRAQUET 


DESS! 


t--—-DEPLACEMENT DE LA BALLE--—-— 


} 


7b90 REBOND 
7692 


7694 


769$ 
0001 
06 
2b 


7695 

0020 TESTS 
0 

1R 

7694 

0017 TEST4 
06 

F 

7695 


0002 TESTX 
OF 


PINE 


DEPBAL 


AS 
792 
1B 
EBOS 


LDX 
LDY 


COLBAL 
LIGBAL 
XBAL 
YBAL 
#1 
TEST: 
PING 
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7459 C6 4 LDB 
745B BD EBOS JSR 
J45E C4 81 LDB 
7460 F7 6041 STB 
7457 BD EBSS JSR 
7466 CE 1B LDB 
7468 BD EB0T JSR 
7068 C6 47 LDB 
7460 BD  EBO3 JSR 
7470 BE ZEFA LDX 
7473 30 1F TEMPO LEAX 
7475 2 FC BNE 
7477 16 FFSi LBRA 
747A 34 Zb  TESTRO PSHS 
747C 10BE 768E LDY 
7480 51 21 LEAY 
7482 10AC 64 CHPY 
“485 27 0€ BEG 
7487 H 21 LEAY 
7489 10AC 64 CPY 
748C 27 07 BEO 
748 31 21 LEAY 
7490 10AC 64 CHPY 
7493 26 15 BNE 
7493 35 36 GAGNE PULS 
7497 CE FC LDU 
7498 17  O1AB LBSR 
7490 CE 76ED LU 
7440 86 02 LDA 
?4R2 17 0092 LBSR 
74AS B6 7694 LDA 
7488 20 9€ ERA 
T4AA 35 J6 PERDU PULS 
74RC 8D SB BSR 
J4AE 86 O1 LDA 
7480 CE LED LDU 
7483 17 0081 LESR 
74Bb BE 000: LDX 
7489 BF 7690 STX 
74BC Fb 76F2 LDB 
74BF C1 O6 CB 
7401 27 © BEQ 
7403 CE 7706 LU 
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#FORM+JAUNE 
PUTC 

He1 

CHDRAN 

CHPL 

#SC 

PUTC 
RFORM+BLANC 


74C6 17 
7409 Bb 
74CC F6 
74CF 16 


74D2 CE 
7405 17 
7408 7F 
7408 CC 
74DE FD 
74E1 BD 
74E4 SD 
T4ES 27 
74E7 C1 
74E9 1027 
74ED C1 
74EF 1027 
784F3 16 


74F6 EC 
74FB 1087 
74FC 27 
TAFE F7 
7301 E1 
7504 27 
7306 20 
7508 39 


209 24 
750B Cé 
730 F7 
7510 BD 
SAS 35 


o17C LESR  MUSIO 
7694 LA  XBAL 
7695 LDB VBA 
FF77 LERA  DEPBALYS 
TIOE QUEST LOU  MIRI 
DID LER  MUSIO 
76F2 CLR CDTI 
FFFF LDD FFF 
T6FB SID  COMPT2 
E806 ATT  JSR GETC 
TSTB 

FA Hg AIT 
41 CB 47 
FES LHEO  DEPART42 
o CB #12 
TEA LEO SE82D 
FEOF LERA  ECRAN 

Î 

3--—-SOUS-PROGRAME DE LECTURE 

Î 
CI LECT LD .U 
FFFF CHPD  #3FFFF 
oA HG RETOUR 
E7C9 STE PORTE 
ETCE CIPA PORTA 
0? BE RETOUR 
EE ERA  LECT 

RETOUR RTS 

L 

t--—SOUS-PROBRAMME. D’ EFFACEMENT——- 

Li 
04 EFFAC PSHS B 
20 LIB #20 
604 ST  CHDRAN 
E835 JSR  CHPL 
ge PUS  B,PC 

L 

t--—--SOUS-PROBRANNE DESS1 


} 
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7515 34 78 DESSI PSHS U,Y,1.D 
7317 Ab CO DEBI LDA .U+ 


7519 81 0 CHPA 
731B 27 18 BED FINI 
7512 81 01 CHPA #1 
7S1F 26 0b BNE  EFD 
7321 ÀE 62 LDX 2,5 
753 5 2 LEAY  1.Y 
7525 20 F0 BRA  DEBI 
7327 81 00 GRD  CMPA 40 
7529 77 0 BEQ  RET 
7328 B7 041 STA  CHDRAW 
752E BD EBSS JSR  CHPL 
7531 30 O1 PRET LEAX 1.X 
7533 À E? BRA  DEBI 


7823 35 F6 FINI PULS U,Y,X,D,PC 
? 


3-—-SOUS-PROGRAME COMPTEUR-----——-- 
Î 


7337 34 7F COMPTA PSHS LU, Y,X,DP,D,CC 


7539 C6 1B LDB  #E6C 
733B BD E803 JSR  PUTC 
TS3E C4 44 LDB  #FORN+BLEU 
7540 BD E803 JSR  PUTC 
7543 4 BOUCLE DECA 

7544 27 CB BED  ETIGI 
JS EE 4 LDB 4.U 
7548 33 4 LEAU 6,U 
7548 SD TSTE 

7348 27 Fb BE BOUCLE 
7540 3 41 LEAU AU 
734 20 F2 ERA BOUCLE 
7551 A6 #4 ETIQI LDA A4,U 
7553 2 06 BNE  ETIO2 
7555 6D 14 BSR  C99 
7357 8D 38 BSR AFF? 
7559 20 04 BRA  FIN2 
7398 8D 1C ETIO2 BSR  C9999 
755 8 FF BSR  AFF4 
759 Cb 1B FIN2 LDB 8ESC 
7361 BD  E803 JSR  PUTC 
73b4 Cb 47 LDB  #FORM+BLANC 
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7566 BD 
7569 3 


75B 34 


756 1C 
736F A6 
7571 BB 
7574 19 
757$ A7 


7877 35 


7579 34 
7578 EC 
7570 F3 
7580 1E 
7582 1C 
7584 19 
7585 24 
7387 5C 
7588 1E 
7584 1C 
758€ 19 
738D ED 
758F 3S 


7591 34 
7593 ÀÆ 


45 
87 


32 
C4 


7595 104€ 42 


7598 86 
7594 6D 
759€ 35 


759% 34 
73A0 À 


ts) 
13 
E2 


Ca 


TSA2 10AE 42 


754$ 86 
73A7 8D 
7349 86 
SAB 8D 
754) S 


75AF Eb 
15B1 C4 


Ce 
FO 


JSR 


AFF2 PSHS 


PUTC 


D,CC 
MFE 
su 
POINT 


AFFICH 
Y,X, APE 


Y,X,A 


131 


TSBS 54 LSRB 


75B4 54 LSRB 

73B5 54 LSRB 

75B6 54 LSRE 

TSB7 CB 35 ADDB  #$30 
7589 F7 6041 STB  CHDRAN 
TSBC ED EBSS JSR  CHPL 
75BF 30 01 LEAX 1.X 
7SCL Eb Cb LDB AU 
7503 C4 OF ANDE  #$0F 
TSCS CB 35 ADDB  #$50 
7507 F7 6041 STB  CHDRAW 
TSCA BD  EBSS JSR  CHPL 
75CD 30 O1 LEAX 1.) 
7SCF 39 RTS 


1 
ÿ------SOUS-PROGRAMME MENU" 


$ 


7300 CE 767À MENU LDU  4TAE 
7303 E& CO BOUCS LDB .it 


7aD5 C1 04 CHPB 44 
5307 27 PEB TITRE 
7309 BD EBOT JSR  PUTC 
7aDC 20 F5 BRA  BOUCS 
7SDE 8E OOOÀ TITRE LDX #10 
7SE1 108E C00À LDY #10 
SES CE 76AÏ LOU  #TEXTE 
79E8 Eb CO BOUCE LDB .U+ 
JSEA C1 04 CHPB #4 
7SEC 27 OA BEG VIT 
JSEE F7 6041 STB  CHDRAW 
7éFi BD ER JSR  CHPL 
75F4 30 02 LEAX  2,X 
F6 20 FO ERA  BOUCE 


73FB CE 7685 VIT LOU  #TAES 
79FB Eb CO BOUC7 LDB .Ux 


7SFD C1 04 CHPB 44 
SFF 27 (5 BEQ  REPONS 
7601 BD EBOS JSR  PUTC 
7604 20 F5 ERA  BOUC7 
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7606 BE 0002 REPONS LDX #4 


7809 108E (010 UDY He 
7b0D CE 76AC LDU  #TEXT4 
Tb10 Eb CO BDLCB LDB  .Ux 
7612 C1 04 CHPB #4 
614 27 OA BEQ CHOIX 
7616 F7 6041 STB  CHDRAW 
7819 BD EBSS JSR  CHPL 
761C 30 OO! LEAX 1,X 
THIE 20 FO ERA  BOUCS 
7620 BD EBOB CHOIX JSR BEIC 
7623 5D TSTB 
7624 27 FA BEG  CHOIXI 
728 C1 1 CHPB 149 
7628 26 06 BNE CHOIX 
FÉ2A 8E FFF UDX  ##2FFF 
762D BF 76FA STX  VITES 
7h50 C1 22 CHOIXZ CHPB #50 
7632 26 BNE  CHOIXZ 
7634 @Æ FFF LDX  #$1FFF 
7657 BF 76FÀ STX  VITES 
76IA C1 33 CHOIXS CMPB #51 
16% 26 06 ENE  FINMEN 
7E3E 8E  OFFF LDX #$0FFF 
7641 BF 76FA STX  VITES 
7644 39 FINMEN RTS 
| 
1-—--COUS-PROGRAMME DE MUSIQUE -----—--- 
Î 
b031 TEMPO EU  $6031 
6033 DUREE EGU  $6037 
bO35 TIMERE EQU  $60S5 
6036 OCTAVE EBU  $6036 
ES1E NOTE EGU  $EBIE 
7645 34 06 MUSIG PSHS D 
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Î Initialisation 


: 
7647 7F 6051 CLR TEMPO 
7644 7F 6033 CLR DUREE 
764D 7F 606 OR  OCTAVE 
7650 Eb C0 LDB  .U+ 
7652 F7 b032 STB  TEMPD#I 
7655 Eb C0 LDE  ,U+ 
7657 F7 6034 STB  DUREE#I 
76SA E8 CO LDB Ut 
7ESC F7 607 STB  TIMBRE 
165 Eb C0 LDB  .Ut 
76b1 F7 6037 STB  OCTAVE+I 

L 

L On joue l'air 


bb4 Eb CO AIR  LDB .U+ 


76bb Ci 04 CHPB 44 
7668 27 0% BB  FINAIR 
7b6A BD EBIE JSR NOTE 
bb) 20 F5 ERA AIR 


766F 35 66 FINAIR PULS  D,PC 


3 
3--—--DEFINITIONS DES CONSTANTES---—---- 
1 


7671 IB TABLE FCB ESC 


7672 47 FCB  FORM#BLANC 
7673 1B FCB ESC 

7574 32 FCB  FOND+4VERT 
7678 1B FCB ESC 

7676 Eù FCB  TOUR#NDIR 
7677 0C FCB  $0C 

7678 14 FCB $14 

7679 04 FCR 3 
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7b7À 
"67 
7b7C 
E7D 
TETE 
767F 
7680 
TEB 
7687 
7h83 
7bB4 


7685 
7688 
7687 
768 
2489 
7EBÀ 
7680 
TBE 
7b90 
7692 
794 
7693 


769 


7698 


76°C 


7bA2 


1B TAB2 FCB 


41 FCB 
1B FCB 
50 FCB 
1B FCB 
E0 FCB 
0C FCB 
14 FCB 
1B FCB 
4F FC 
04 FCB 
1B TABT FCB 
46 FCB 
1B FCB 
4 FCB 
94 FCB 


0022 XBOITE FDB 


6001 COLRAG FDB 
000€ LIGRAG FDB 
0003 COLBAL FDB 
0003 LIGBAL FDB 


01 XEAL FCB 
01 YBAL FCE 
42 TEXTI FC 
ai 
4C 
ac 
45 
04 FCB 


50 TEXT2 FCC 


04 FCB 


ESC 
FORM+ROUGE 
ESC 
FOND+NOIR 
ESC 
TOUR+NOIR 
soc 

$14 

ESC 

$4F 

4 


ESC 
FORM+CYAN 
ESC 

$C 

4 


34 


JPOINTS/ 
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7bA3 S3 TEXTS FCC  /SQUASH 2/ 


TEAB 04 FCB 4 


76AC 43 TEXT4 FCC  /CHOISISSEZ VOTRE/ 


EC 2 FCC À VITESSE (1.2,3) :/ 


7bCE 04 FCB 4 


136 


03 DEBGR FCB 
03 FCR 

3 FCB 
03 FCB 

M FCB 
(3 FCB 

M FCB 
(eRS FCB 
18 FCB 
7 FCB 
7E FCB 
FF FCB 
FF FCB 
2 FCB 
7E FCB 
18 FCB 


20  RAQUET FCB 


o1 FCB 
80 FCB 
01 FCB 
80 FCB 
01 FCB 
80 FCB 
01 FCB 
20 FCB 
02 FCB 
81 BALLE FCB 
02 FCB 


0001 POINT FD8 


0025 TABCPT FDB 


0003 FDE 
00 FCB 
00 CDTI FCE 
0024 FDB 
CO0E FDB 
01 FCE 


FFFF COMPT2 FDB 


1FFF VITES FDB 


C4 ca Ca éd CA C4 Ca C4 
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7bFC 
7BFE 
7700 
7702 
7704 


7706 
708 
T70À 
770 


770€ 
7710 
7712 
T4 
7716 
T8 


0106 AIRI 
0104 
3133 
3536 
3804 


1018 AIR2 
0205 
3131 
3104 


010€ AIRI 
0102 
3130 
3130 
3131 
3504 


0000 


00000 Total Errors 


7591 
7 
754 
7bb4 
TFC 
7706 
770 
7AE1 
76E9 
0007 
0004 
7329 
7345 
7355 
73 
7503 
758 
73FB 
7610 
7588 
7543 
7326 
756B 
7579 


FR 
FDB 


FDB 


$0106 
$0104 
$3135 
$3536 
93804 


$1018 
$0205 
$3151 
$3104 


$010C 
$0102 
$3130 
$3130 
$3131 
$3504 


CHDRAN 
CHOIX 1 
CHOIX2 
CHOIX 
CHPL 
CLAV 
COLBAL 
COLRAB 
COMPT1 
COMPT2 
COMPTA 
CYAN 
DEBI 
DEBER 
DEBUT 
DEPART 
DEPBAL 
DEPRAG 
DESS1 
DRAN 
DUREE 
ECRAN 
EFFAC 
ESC 


ETIGI 
ETI02 
FINI 
FINZ 
FINAIR 
FINMEN 
FOND 
TEMPO 
TEMPO 
TESTI 
TEST2 
TESTS 
TEST4 
TESTRG 
TESTX 
TEXTI 
TEXT2 
TEXTS 
TEXT4 
TIMBRE 
TITRE 
TOUR 
USERAF 
VERT 


TSFB 
7bFA 
7894 
768A 
7695 
T36F 
0040 
6038 
T4 
EBOE 
7527 
7313 
738b 
0005 
EB27 


E7C9 
EBOS 
7402 
76DF 
7402 
7606 
7531 
7508 
0001 
767A 
7685 
76ED 
7671 
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140 


ÉECEEEE CEE TELE ETC USENET 


SQUASH 3 
Version Manette 8 et cube 


+ 0 Le 49 26 + 48 4% 
ve +0 ve 46 26 2e 


CLLEE EEE CISCO TENTE EEE ENT ECTEPE TEE: 


à Copyright Michel OURY & CEDIC/NATHAN 
L] le 18/2/1984 


} 
t DEFINITIONS DES EQUIVALENCES 
} 


E827 JOY EGU  $E827 
ES0F PLOT EQU $E80F 
EBOC DRAN EQU  $E80C 
6038 FORME EGU  $6038 
E809 KTST EQU  $E809 
EBOB GETC EQU  $E80k 
E803 PUTC EBU  $E803 
0040 FORM EBU  $40 
0050 FOND EBU  $50 
0060 TOUR EQU $40 
0001 ROUGE EBU 1 
0002 VERT  EQU 
0003 JAUNE EGU 
0004 BLEU  EQU 
0005 MAGEN EGU 
0006 CYAN EGU 
0007 BLANC EGU 
0000 NOIR EGU 
001B ESC EG 
ESS3 CHL  EQU #85 
b041 CHDRAW EQU 56041 
b02D USERAF EGU  $602D 
E7CB PORTA EOU  $E7C8 
E7C9 PORTE EQU  $E7C9 


Oo OC à Cr 


" 
me 
Ca 


7300 


7300 34 
7302 17 


730$ CE 


7308 E6 
750À C1 
730€ 27 
750€ BD 
7311 2 


713 C6 
7315 BD 
7318 Cé 
731À BD 
731D Cë 
T31F F7 
7222 8 


& PROGRAMME PRINCIPAL 
3 


CR6 


t-—---CHOIX DU MENJ 


$7300 


7F DEPART PSHS U,Y, K,DP,D.CC 


02E2 LBSR 


1 


3-—---INITIALISATION DE L'ECRAN 


3 


7717 ECRAN LOU 
CO DEBUT LDB 
04 CB 
Où BEQ 
E80S JR 
FS BRA 


MN 


STABLE 


,U+ 

#4 
INIBOX 
PUTC 
DEBUT 


à -- BOITE NOIRE À DROITE -- 


7325 108E 0008 
7329 BD EBSS 
732C 108E 0000 


1B INIBOX LDB 
EB0S JSR 
90 LDB 
EB0S JSK 
20 LDB 
6041 STB 
000F LDX 

LDY 

JSR 

LDY 


7320 BE 7730 BOXF  LDX 
733: BD EB33 BOUCI JSR 


73% 30 O1 
7338 BC 0029 
738 2 Fb 


RESC 
PUTC 
#FOND+NO IR 
PUTC 
2 
CHDRAK 
#5 
#11 
CHL 
La 
XBOITE 
CHL 
1,X 
#4! 
BOUC1 


Len ce 00e 200 can mue mien ee en ce mm amenee em 
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1.Y 
#23 
BOXF 


INITIALISATION DES TEXTES -- 


#5 
#1 
ATEXTI 


PUTC 


PUTC 


Ù 
3 -- RAGUETTE ET ÉALLE — 


T0 1 21 LEAY 
TS 108C 0019 OFY 
1343 26 ER BNE 

' 

Î — 

' 
7345 &E 0023 LDX 
78 108E 000! LDY 
TS CE  77SC LDU 
TS4F E6 CO BOUC2 LDB 
7351 C1 04 DFE 
7353 27 (CA BEO 
7355 F7 6041 STB 
7358 BD  EBS: JSR 
7358 30 O0! LEAX 
7350 20 F0 BRA 
TSF CE 7742 BOUCS LIU 
7362 BE 0023 LX 
7365 108€ 000€ LDY 
7369 Eb CO BOUC4 LDB 
T6B CI 04 CHPB 
73D 27 OA BEQ 
736F F7 6041 STB 
7372 BD  EBX: JSR 
737530 O1 LEA 
7377 20 F0 BRA 
7379 Ch 1B ZERO LDB 
7478 BD  EB0: JSR 
TIÆ Cb 52 LDB 
7380 BD  EBO: JSR 
7383 86 01 LIA 
7385 CE 779 LDU 
7388 17 OC LBSR 
738B Bb 02 LDA 
7380 17  OBE LESR 

1 
7300 CE 7775 INIRAQ LOU 
7392 FF 6021 STU 
7196 BE 7732 LDX 
7299 10BE 7734 LDY 
720) Œ 7785 LDU 
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ADEPER 
USERAF 
COLRAQ 
LIGRAG 
BRAQUET 


73A0 17 
TIAS BE 


0189 
7736 


73Ab 10BE 773 


SA CE 
73AD 17 


780 7F 
73B5 Cb 
7385 F7 
73B8 8E 
TSEB 108 
75BF BD 
7JC2 8E 
7305 BD 
73C8 108 
J3CC BD 
J3CF 8E 
73D2 BD 


FD 88 
73D7 87 
J3DA BE 
3DD 10BE 
SEL 4 
73E2 BD 
J3ES C1 
73E7 27 
75E9 C1 
TSEB 27 
J3ED 20 


7SEF 108€ 
75F3 27 
73F5 31 


778F 
017C 


LBSR 
LDX 
LDY 
LDU 
LBSR 


DESS1 
COLBAL 
LIGBAL 
SBALLE 
DESS1 


à -- DESSIN DU CADRE -—- 


ls 


6041 
91 

b03B 
000B 
0007 
ES0F 
0100 
EBOC 
00C0 
EBNC 
0008 
EBOC 


03 CLAV 
7100 
7732 TEMPO 
7IT4 


E827 
01 
06 
05 
10 
22 


L 


CLR  CHDRAN 
LDB ROUGE 
STB FORME 
LDX 8 

UY #7 

JSR  PLOT 
LOX  #256 
JSR  DRAN 
LDY  #192 
JSR  DRAN 
UX #8 

JSR  DRAK 
TEST DU CLAVIER-----— 
LA 

STA  DECPT 
LDX  COLRAQ 
LDY  LIGRAG 
CLRA 

JSR  JOY 
CPR #1 

BEQ  TESTI 
CHPB #5 

BEQ  TEST2 
BRA  FINCLA 


ÿ-—--DEPLACEMENT DE LA RAQUETTE--—---- 


L) 


0000 TESTI 
IC 
3F 


CHPY 
BEG 
LEAY 


#0 
FINCLA 
1, 
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73F7 10BF 7734 STY  LIGRAB 


T3FB 20 BRA  DEPRAG 
73FD 108C 0015 TEST2 CMPY #21 
7401 27 0E BEQ  FINCLA 
7403 31 21 LEAY  1,Y 
740$ 10BF 7734 STY  LIBRAQ 
7409 20 00 BRA  DEPRAG 


740B CE 7785 DEPRAQ LOU  8RAQUET 
749€ 17  O11B LBSR  DESSI 


7411 7A 7700 FINCLA DEC  DECPT 
741426 C4 BNE  TEMPC 


; 
à-—-DEPLACEMENT DE LA BALLE-----—--- 
1 


7416 BE 7726 REBOND LDX  COLBAL 


7419 10BE 7738 LDY  LIGBAL 
JHD B6 773 LDA  XBAL 
7420 F6 773B LDB  YBAL 
7423 17 02862 LRSR MILIEU 
7426 108C 0001 CHPY #1 
742A 26 0 ENE TESTS 
742€ 8D 26 BSR  PING 
742 50 NEGB 

742F F7 773 STE  VYBAL 
7422 8C 0020 TESTS CMPX #32 
7835 26 O6 BNE  TEST4 
7437 8D 1B ESR  PING 
7439 40 NEGA 

J4TA B7  772A STA  XEA 
7843D 108C 0017 TEST4 CMPY HEC 
7441 2 ENE  TESTX 
7443 8D ©F ESR  FING 
7445 50 NEGB 

7448 F7 775 STB  YBAL 
7449 8C 0002 TESTX CMPX #2 
7440 28 CF BNE  DEPBAL 
THE 40 NEGA 

744F B7 7734 STA  XBAL 
7452 20 SD ERA  IESTRO 
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7454 34 
7458 Cé 
7458 BD 


SR EX 


7450 17 
7460 30 
7882 BF 
745 31 
78467 10BF 
7468 Cb 
746D BD 
7470 C8 
7472 BD 
7475 CE 
7477 F] 
747A BD 
747D Cé 
-847F BD 
7882 Cb 
484 BD 
7487 PE 
748À 50 
78480 26 
7A8E 16 


7491 34 
7493 10PE 
7497 3 
7499 1OAC 
749€ 27 
749€ 51 
74A0 1OAC 
T4AT 27 
T4AS 3 
74AT 10AC 
78hÀ 2£ 


7489 17 
74EC E6 
748F À 


04 PING PSHS 
07 LDB 
EBOT JSR 
84 PULS 
00C0 DEPRAL LESK 
86 LEAX 
7736 STX 
AS LEAY 
7738 STY 
18 LDB 
EB03 JSR 
4 LDB 
EBOS JSR 
Bi LDB 
6041 STB 
EBTS JR 
IE LDB 
E903 JR 
7 LDB 
EBOX JSR 
7780 LDX 
IF TEMPI LEAX 
FC BNE 
FF44 LERA 
20 TESTRG PSHS 
7734 UDY 
21 LEAY 
E4 CHPY 
DE BEQ 
21 LEAY 
E4 CMPY 
07 EG 
21 LEAY 
E4 CPY 
15 BNE 
20 GAGNE PULS 
7702 LOU 
D1A8 LESR 
7798 LDU 
02 LDA 
0092 LBSR 
TT3A LDA 
LA BRA 


B 

#7 
PUTC 
B,PC 


EFFAC 

A,X 

COLBAL 

B,Y 

LIGBAL 

ESC 

PUTC 
#FORM+JAUNE 


PUTC 
#FORM+BLANC 
PUTC 

VITES 

-1,X 

TENP1 

CLAV 


Ÿ 
LIGRAQ 
1,Ÿ 
D 
BAGNE 
1,Y 


145 


74C1 35 20 PERDU PUS Y 


7403 8D SB ESR  EFFA 
7405 88 01 LDA Hi 

7407 CE 7793 LDU  #TABCPT 
74CA 17  OO8l LESR COMPTA 
74CD 8E 000$ LDX #3 

7400 BF 7736 STX  COBAL 
74D3 F6 7798 LDB  COWTI 
74Db C1 06 OPB #6 

7408 27 © BEQ  QUEST 
T4DA CE 77AC LDU  #AIR2 
74DD 17 O17C LBSR  MUSIQ 
740 B6 773A LDA  XBAL 
T4E3 F6 773B LDB YBA 
746 16 FF77 LBRA DEPBAL+S 
T4E9 CE 7784 QUEST LOU AIRIS 
74EC 17  O16D LESR  MUSIQ 
T8EF 7F 7798 CLR  COMPTI 
724F2 CC FFFF LDD  #$FFFF 
J4F5 FD 779 STD  CONMPT2 
74F8 BD EB806 ATT JSR  GETC 
J4FB SD TSTE 

J4FC 27 FA BEQ  ATT 
TWE C1 41 CAPE #77 
7500 1027 FDFE LBED  DEPART+2 
7504 CI OC CB #12 
7306 1027 7323 LBEQ $E82D 
750A 16 FDFB LBRA ECRAN 


$ 
t-—-SOUS-PROGRAMME DE LECTURE----—- 
L 


730D EC C1 LECT LDD .U++ 


TS0F 1085 FFFF CHPD  SFFFF 
7313 27 OA BEG RETOUR 
7513 F7  E7C9 STB PORTE 
7318 Bl EXC8 CHPA PORTA 
751827 02 BEQ  RETDUR 
731D 20 EE BRA  LECT 
751F 39 RETOUR RTS 
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7320 34 
7522 C6 
7304 F7 
7327 BD 
S2A 55 


rat 24 
792€ A6 
7350 81 
7532 27 
7374 81 
7536 26 
7338 ÀE 
7534 31 
783€ 20 
SE 81 
750 77 
7542 B7 
7545 BD 
7548 5 
734 20 
754€ 35 


74€ 4 
7350 C6 
792 BD 
7555 Cé 
7557 BD 
7554 4À 
7358 27 
735D Eb 
736 33 


04 
20 
6041 
EBSS 
84 


7b 
CO 
02 
18 
0! 
06 
b2 
21 
FO 
00 
0 
6941 
EBSS 
01 
E2 
F6 


7F 
1B 
E803 
4 
E805 


0B 
44 
46 


t-—--SOUS-PROGRAMME D’ EFFACEMENT-——- 


L 


EFFAC PSHS 
LDB 
STE 
JSR 
PULS 


ÿ-——-----SOUS-PROGRAMME DESS1 


1 


DESS1 PSHS 
DEBI  LDA 
CMPA 


GERD  C#A 


RET  LEAX 
FINI  PULS 


B 

4520 
CHDRAN 
CHPL 
8,PC 


U,Y,X,D 
U+ 


1, 
DEBI 
U,Y, X,D,PC 


1-——-SOUS-PROGRAMME COMPTEUR------—--- 


Î 


COMPTA PSHS 
LDB 
JSR 
LDB 
JSR 

BOUCLE DECA 
BEG 
LDB 
LEAU 


U,Y, X, DP, D, CC 


#ESC 
PUTC 
#FORM+BLEU 
PUTC 


ETIQ! 
au 
&,U 


7561 SD 
7562 27 
7564 3S 
7366 20 


7568 A6 
7S6À 24 
756€ 6D 
TS6E 8D 
7570 20 
7572 8D 
7574 BD 
7376 CE 
7578 BD 
7578 Cb 
757D BD 
7380 35 


7582 34 


7384 1C 
7586 À 
7588 BB 
758B 19 
738€ A7 


758 3 


7390 34 
7592 EC 
7594 F3 
7597 ÎE 
7399 IC 
7598 19 
759 24 
759€ SC 
739F 1E 
7SA1 1C 
TSAJ 19 
7944 ED 
7546 35 


T5SAB 34 
TSAÀ RE 


07 


LE 
87 


32 
C4 


SAC 10AE 42 


TSF 86 
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05 


ETIO! 


C9999 


BOUC9 


AFF2 


HD BOUCLE 
LEAU I,U 

BA BOUCLE 
LDA  4.U 

PME  ETIG? 

BSR  C99 

BSR  AFF2 

ERA FIN 

BSR  C9999 

BSR F4 

LDB # 

JSR  PUTC 

LDB  #FORM#BLANC 
JSR  PUTC 

PULS  U,Y,X, DP,D,CC,PC 
PSHS  D,CC 

ANDCC #4FE 

LDA SU 

ADDA POINT#I 

DAA 

STA SU 


PSHS  D,CC 
LDD SU 
ADDD POINT 
EX6 AB 
ANDCC #$FE 
DA 

BCC  BOUC9 
INCB 

EX6 AB 
ANDCC MFE 
DM 

SD SU 
PULS  D,CC,PC 
PSHS  Y,X,A 
UX  ,U 
LDY  2,U 
LDA 45 


t-—-SOUS-PROGRAMME. MENU 


7581 8D 13 BSR 
7SB3 55 B2 PULS 
75BS 34 32 AFF4 PSHS 
7387 AE C4 LDX 
79B9 10AE 42 LDY 
79BC 86 05 LDA 
75BE 8D 06 BSR 
7300 8 06 LDA 
75C2 BD 02 BSR 
73C4 35  B2 PULS 
7$Cé Eb C6  AFFICH LDB 
75C8 C4 FO ANDB 
SCA 54 LSRB 
75CB 54 LSRB 
75CC 54 LSRB 
7SCD 54 LSRB 
79CE CB 30 ADDB 
7300 F7 6041 STB 
75D3 BD EBSS JSR 
7SD6 30 01 LEAX 
75DB Eb C6 LDB 
7SDÀ C4 OF ANDE 
J7S0C CB 30 ADDB 
JSDE F7 6041 STB 
75E1 BD ESS JSR 
75E4 30 O1 LEAX 
TSE6 59 RTS 
1 
1 
7E7 CE 7720 MENU LOU 
7SEA E6 CO BOUCS LDB 
JSEC C1 (04 CFE 
SEE 27 CO BEQ 
75F0 BD EBOS JSR 
75F3 2 FS ERA 
TSFS 8E OO0A TITRE LDX 
75F8 108E 000 LDY 
TSFC CE 7749 LDU 


AFFICH 
Y, KA, PC 


Y,X,A 
U 

2,U 

5 
AFFICH 
# 
BFICH 
Y,X,A,PC 


A,U 
#$F0 


#TAB2 
.U+ 
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TSFF Eb CO BOUCE LDB 
7601 C1 04 OPB 
7603 27 OA BEG 
7605 F7 6041 STB 
7608 BD EBSS JSR 
2608 30 02 LEAX 
760D 20 FO BRA 
760F CE 772B VIT LOU 
1612 E6 CO BOUC7 LDB 
7b14 C1 04 CHPB 
7616 27 OS BEQ 
7618 BD EBO03 JSR 
761B 20 F5 BRA 
7b1D 8E 0002 REPONS LDX 
7620 10BE 0010 LDY 
7624 CE 7752 LOU 
7627 E& CO BOUCB LDB 
7629 C1 04 C'PB 
7628 27 OÀ BEQ 
720 F7 6041 STB 
7630 BD EBSS JSR 
7633 30 01 LEAX 
765 2 F0 ERA 
7637 BD EBOB CHOIX1 JSR 
763A SD TSTB 
763B 27 FA BED 
763) C1 351 CHPB 
768 2b 06 BNE 
7641 8E 2FFF LDX 
7b44 BF 77AO STX 
7647 C1 32 CHOIX2 CHPB 
749 26 06 BNE 
764B SE 17FF UDX 
Jb4E BF 77AO SX 
7651 C1 33  CHOIXS CHPB 
7653 2 0 BNE 
7655 8E  OFFF LDX 
7658 BF 77A0 STX 
765B 39 FINMEN RTS 
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#1é 
ATEXT4 
.U+ 

#4 
CHOIX! 
CHDRAN 
CHPL 


765€ 34 


JbSE 7F 
7661 7F 
76b4 7F 


7667 Eb 
7669 F7 
766€ Eb 
JbbE F7 
7671 Eb 
7673 F7 
7676 Eb 
7678 F7 


7678 Eb 
767D Ci 
7b7F 27 
7681 ED 
7684 20 


7688 5 


-—-SOUS-PROGRAMME DE MUSIQUE -——-—-- 


6031 TEMPO EDU  $6031 
6033 DUREE EQU  S$6037 
BOSS TIMBRE EQU  $46035 
bOJE OCTAVE EQU  $6036 
EBIE NOTE EDU  $ÉBIE 
06 HUSIQ PSHS D 
t 
Ÿ Initialisation 
| 
6031 CLR TEMPO 
6033 CLR DUREE 
603 CLR  DCTAVE 
C0 LDB  ,U+ 
6032 ©TB  TEMPO+] 
C0 LDB  .U+ 
b034 CTB  DUREE#1 
C0 LDB  .U+ 
6035 STB  TIMBRE 
CO LDB  ,U+ 
6037 STB  OCTAVE+I 
} 
4 On joue l’air 
} 
CO AIR  LDB .Ut 
04 CHPB #4 
05 BEQ  FINAIR 
EBIE JSR NOTE 
F5 ERA AIR 
86 FINAIR PULS  D,PC 
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7E88 8C 
JbSE 26 
768D 108€ 
7691 27 
7693 108C 
7687 2 
7699 108C 
2690 27 


769F 8C 
76A2 26 
TEA4 108€ 
76hB 27 
FERA 108€ 
J6AE 27 


76B0 4 
78B3 26 
76BS 108€ 
76B9 27 
76BB 108C 
76BF 27 
76C1 108€ 
76CS 27 
76C7 20 


2609 BI 
76CB 2E 
76CD Ci 
76CF 26 
76Di ED 
78D3 20 


76DS 40 
7bD6 B7 
7629 17 
76DC 20 


76DE 81 
760 26 
26E2 C1 
7bE4 2b 
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| 


t-——-SOUS-PROGRAMME DU MILIEU 


Î 


O00E MILIEU CNPX 
12 BNE 
000 CMPY 
3 BEQ 
000B CPY 
3C BEG 
000€ CMPY 
SP BEC 
C00F SUITI  CMPX 
OC BNE 
CO0A CMPY 
40 BEG 
000€ CNPY 
JA BEU 
0010 SUIT2 CMPX 
bi BNE 
000À CMPY 
38 BEU 
C00B CMPY 
14 BEQ 
000€ CMPY 
38 BEQ 
4) BRA 
01 INVI  CKPA 
49 ENE 
01 CHPE 
45 + BE 
8 BSR 
| BRA 
INV2 NEGA 
TT3R STA 
FD7B LBSR 
M BRA 
01 INVZ CHA 
34 BNE 
FF CHPE 
T0 ÊNE 


#14 
SUIT! 
#19 
INVI 
#11 
IN 
#12 
INT 


#15 
SUIT2 
#10 
INV4 
#12 
INV4 


#1£ 
SUITE 
#ic 
INVS 
#il 
INV2 
#12 
INVE 
SUITS 


#1 
SUITS 
#i 
SUITS 
INV 
SUITS 


XEAL 
PINE 
SUITS 


#i 
SUITS 
#1 
SUITS 


JbEE ED 
ES 20 


J6EA 50 
76EB F7 
J6EE 17 
7EF1 20 
26F3 81 
7EFS 26 
76F7 C1 
76F9 2b 
76FB ED 
76FD 20 


J6FF 8 
7701 26 
7703 CI 
770$ 26 
7707 8D 
7209 20 


770B 40 
770€ B7 
770F 50 
7710 F7 
T3 17 
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INVE  CKPA 


BSR 
ERA 


INV  NEGA 
STA 
NEGB 
STB 
LESR 

SUITS RTS 


1 


INV 
SUITS 


YBAL 
PING 
SUITE 
#-1 
SUITE 
#1 
SUITE 
INV 
SUITE 


#1 
SUITE 
#1 
SUITS 
IN 
SUIT3 


XBAL 


YBAL 
PING 


t-——-DEFINITIONS DES CONSTANTES---—--- 


} 


TABLE FCE 
FCB 


TAB2  FCB 


ESC 
FORM+BLANC 
ESC 
FOND+VERT 
ESC 
TOUR+#NOIR 
#0C 

$14 

4 


ESC 
FORM+ROUGE 
ESC 
FOND+NOIR 
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7781 
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1B FCB 
60 FCB 
oc FCB 
14 FCB 
1B FCB 
4F FCB 
04 FCB 
1B TABT FCB 
46 FCB 
iB FCB 
ac FCB 


0022 XBOITE FDE 


0001 COLRAO FDB 
000€ LIGRAQ FDE 
0003 COLBAL FDE 
0003 LIGRAL FDB 
O1 XEAL FCB 
01 OYBAL FCB 
42 TEXTI FC 
4! 
4 
4 
45 
04 FCE 
50 TEXT2 FC 
F 
49 
Æ 
54 
st 
04 FCB 
S3 TEXTS FCC 
si 
ss 
4! 
3: 
48 
20 
3 
04 FCB 


ESC 
TOUR+NOIR 
$0C 

#14 

ESC 

£4F 

4 


ESC 
FORM+CYAN 
ESC 
$4 


34 


LP] 


—. ve C4 C4 00 


/BALLE/ 


/POINTS/ 


4 


JSQUASH 3! 


"J 


1774 


TITS 
7778 
TITI 
7778 
7779 
?77A 
T77B 
777 


TEXT4 FCC 


FCC 


FCB 


FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 


ICHOISISSEZ VOTRE/ 


1 VITESSE (1,2,3) :/ 


C3 


CM CI CA Cd LA CA CA CA 
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7170 
T77E 
777F 
7780 
T7E1 
7782 
7783 
7784 


7785 
7786 
7787 
7788 
7789 
7784 
778B 
778€ 
770) 
778E 


778F 
7790 


779 


2793 


7798 


hp) 
7798 
7799 
7798 


770 
LEA] 


F29E 


770 


TIA2 
TIM 
TTAÉ 
TAB 
TTAA 


77AC 
77RE 
7780 
7782 
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18 FCB 
JE FCB 
ui: FCB 
FF FCB 
FF FCB 
TE FCB 
7È FCB 
1B FCB 
20 RAQUET FCB 
01 FCB 
EO FCB 
01 FCB 
80 FCR 
01 FCB 
80 FCB 
01 FCE 
2 FCB 
02 FCB 
81 BALLE FCB 
02 FCB 
0001 POINT FDB 
0023 TABCPT FDB 
0003 FDB 
00 FCB 
00  COMPTI FCB 
0024 FDB 
000€ FDB 
01 FCB 


FFFF COMPT2 FDB 


FFF VITES FDB 


0106 AIRI  FDE 


0104 FDB 
Men FDB 
3336 FDB 
3804 FDB 
1018 AIR2 FDB 
0205 FDB 
J131 FDB 
3104 FDB 


$18 


77B4 010€ AIR3 


77B6 0102 

77B8 5130 

77BA 3130 

77 3131 

TTBE 3504 

7700 DECPT 
0000 


(0000 Total Errors 


FD 
FDB 
FDE 
FDE 
FDB 
FDB 


MB 


END 


#010C 
#0102 
#3130 
$3120 
#3131 
$3504 


l 


AFF2 
AFF 
AFFICH 
AIR 
AIRI 
AIR2 
AIRS 
ATT 
BALLE 
BLANC 
BLEU 
BOUC1 
BOUC? 
BOUCT 
BOUC4 
BOUCS 
BOUCE 
BOUC7 
BOUCE 
BOUC9 
BOUCLE 
BOXF 
(99 
C9009 
CHDRAN 
CHOIX 1 
CHOIX2 
CHOIXT 
CHPL 
CLAV 
COLBAL 
COLRA 
COMPTI 
COMPT2 
COMPTA 
CYAN 
DEBI 
DEBER 
DEBUT 
DECPT 
DEPART 
DEFBAL 
DEPRAG 
DESSI 
DRAH 
DUREE 


ECRAN 
EFFAC 
ESC 
ETIQ! 
ETI02 
FIN! 
FIN2 
FINAIR 


FINCLA : 


FINMEN 
FOND 
FORH 
FORME 
GAGNE 
GETC 
GRD 
INIBOX 
INTRAQ 
INV 
INVI 
INV2 
INV3 
INV4 
INVS 
INVE 
JAUNE 
JOY 
KTST 
LECT 
LIGBAL 
LI6RAG 
MAGEN 
MENU 
MILIEU 
MUSIG 
NOIR 
NOTE 
OCTAVE 
PERDU 
PING 
PLOT 
POINT 
PORTA 
PORTE 
PUTC 
QUEST 


7785 
7416 
7b1D 
7548 
TSIF 
0001 
769F 
76B0 
7716 
7720 
7728 
7793 
7717 
TSDA 
7484 
6031 
T3EF 
73FD 
7432 
742 
7491 
7449 
273C 
7742 
7749 
7752 
6035 
TSF5 
0060 
b02D 
0007 
760F 
77A0 
773 
7730 
778 


7579 
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II. Le ping-pong 
1. Principe de jeu 


Le fond du jeu reste semblable au squash, mais cette fois seules les manettes 
sont utilisées et chaque joueur dispose d’une manette pour déplacer sa 
raquette verticalement, soit à droite, soit à gauche du terrain. 


Le score est affiché en bas de l’écran. 
Chaque joueur dispose de 5 engagements consécutifs. 
Toute baile perdue par un joueur fait marquer un point à l’autre joueur. 


La partie est terminée dès qu’un joueur atteint 21 points. 


2. Listing de PONG 
QCELEE EEE NICE EEE SN TEEN CEE EENTIEE ET) 


PPP 000 N N G6E 
P PO ON N6 6 
PP 0 ONNNE 

P D ON NN6 666 
P 000 N N G666G 


+ +6 +0 +9 22 44 +9 + 
+ + 26 4e 26 +9 2e 


LUCEEEE ES EEE TE EE NTE EE CENTER 


L 

# Cooyright Michel OURY & CEDIC/NATHAN 
L le 18/2/1984 

Li 

# DEFINITIONS DES EQUIVALENCES 

î 


827 JOY EQU  sER27 
ESOF PLOT EQU  $EBOF 
EBOC DRAN EQUJ  SEBDC 
6038 FORME EQU  $603E 
E809 KTST EBU  $E809 
EBOB GETC EQU  $EBOe 
E80S PUTC EDU  +E803 
0040 FORM EQU  $40 

0050 FOND EBU 55 
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7300 


7700 34 
7302 17 


205 CE 


7308 Eb 
FE0A C1 
730€ 27 
730€ BD 
7711 2 


7313 CE 


0060 TOUR  EQU 
0001 ROUGE EGU 
0002 VERT  EQU 
9003 JAUNE EQU 
0004 BLEU  EGU 
0005 MAGEN EQU 
0006 CYAN  EQU 
0007 BLANC EQU 
0000 NOIR  EQU 
001B ESC  EQU 
EBSS CHPL EQU 
5041 CHDRAN EOU 
6020 USERAF EQU 
E7CE PORTA EDU 
E7C9 PORTB EQU 


Y  PROBRAMME PRINCIPAL 
Î 


7F DEPART PSHS 
03B2 LBSR 


ÿ-——--{NITIALISATION DE L?ECRAN 


} 


7758 ECRAN LDU 

CO DEBUT LDB 

04 CMPB 

op) BEQ 

EBOS JSR 

F5 ERA 
ÿ 


ÿ -- BOITE NOIRE EN BAS--— 


iB INIEOX LDE 


U,Y, X, DP,D,CC 
MENL 


ATABLE 


.U+ 

#4 
INIBOX 
PUTC 
DEBUT 


LE R 
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7715 ED ES0Ÿ JSR  PUTC 


718 € LDB  #FOND+NOIR 
JHA ED EBOS JSR  PUTC 

7SID CE 20 LDB #1 

JF F7 6041 STE  CHDRAK 
7522 108E 001 LDY 22 


7526 BE 7771 BOXF LDX  KXBOITE 
TE2 BD EBS3 BOUCI JSR  CHPL 


7320-30 OI LEAX 1.X 
F32E 8C 9029 CMPX #41 
734 246 FE BNE  EOUCI 
Fes ol à LEAY  1.Y 
7335 1080 0019 CMPY HZ 
2359 25 . ER BNE  BDXF 

L 

ÿ  -- INITIALICATION DES TEXTES -- 

À 
7338 8E MM LD # 
T23E 108E OÛIE LDY 42 
TEA CE 7781 LDU  #TEXT! 
7S4S E& CO BOUT? LDE  .U+ 
TH CI 94 CHPB #4 
7349 27  OÂ BEU  BOUCT 
7348 F7 6041 STR  CHDRAN 
THE BD EBSX JSR  CHPi 
Fest 50 91 LEAX 1,X 
733 20 F0 ERA  BOUC! 
TISS CE 778A BOUCS LDU  HTEXTE 
7358 SE  OÛIE LDX SC 
cs 10€E 0018 LDY #22 
PSSF EE CO BOUC4 LDB  .U+ 
73€1 C1 04 CNPE #6 
63 27 4 BEQ  {EFO 
7265 F7 6041 STE  CHDFA4 
7:63 BD EBSS JSR  CHPL 
736B 50 01 LEAX  i.} 
7540 20 F0 ERA  BDUCA4 
TS6F CE 1B ZERO LDE SC 
7371 BD EEOZ JSR  PUTC 
7574 C6 5 LDE  #FOND+VERT 
7326 BD ES0? JSR  PUTC 
7379 7F  7JJEF CLR  POINT#I 
732€ 86 01 LDA 4 
J3TE CE 77F0 LDU  #TABCPT 
7:81 17 0204 LBSR COMPTA 
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7384 86 92 
7386 17 0295 
7389 7C 77EF 


Tec CE 77C0 
738F FF 4020 
“o02 BE . 
7395 10BE 777$ 
7590 CE 77DB 
FSC AT ‘0280 
F6 BE. 77277 
7EAT 10BE 7770 
TER CE  JTEG 
77A9 17 0250 
TIAC BE 777E 
JSAF 1OPE 777 
7563 CE JTEC 
TIRE 17 024 


TE9 F 4041 
TIC Cé 0! 

TIRE F7 8078 
7301 @Æ 000€ 
FEC4 !08E 9007 
73C8 ED EBOF 
7ICB BE 0137 
TICE ED  EBOC 
"301 &E 0008 
72D4 1ÔBE COAE 
7308 BD EBOF 
T3DE BE 017 
TIDE BD  ER0C 


LDA 
LBGR 
INC 


L 


LP. 
COMPTA 
FOINT+] 


3 -- RAQUETTE ET BALLE —- 


1 


INIRAG LOU 
STL 
LEX 
LDY 
LDU 
LBSR 
LDX 
LDY 
LOU 
LBSR 
Lx 
LDY 
LU 
LESR 


Î 


ADEBER 
USERAF 
COL 1 
LI6i 
A! 
DESE! 
COL2 
LIEZ 
RFAG2 
DESSI 
COLBAL 
LIGEA 
HBALLE 
DESE! 


ÿ -- DESSIN DU CADRE --- 


1 


CLR 
LDE 
STB 
LD* 
LDY 
JSR 
LDX 
JSR 
LDX 
LDY 
JSR 
LDX 
JSR 


CHDRAN 
#ROUGE 
FORME 
#e 

#7 
PLOT 
#3ii 
DRA# 
#8 
#éE 
PLOT 
LAGN 
DRAM 
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L 


3-—-TEST DU CLAVIER" 


! 


7SE1 BE 7773 CLAV 
73E4 10BE 7775 
7IE8 4F 

7SE9 BD  EB27 

JSEC C1 O1 

TSEE 27 06 

73F0 C1 © 

73F2 27 0 


TF4 20 22 


Li 


LDX 
LDY 
CLRA 
JSR 
CPS 
BEG 
CPB 
BEQ 
ERA 


COLI 
LIG1 


J0Y 
#1 
TEST! 
#5 
TEST2 
CLAV2 


ÿ--—--DEPLACEMENT DE LA RAQUETTE No 0--- 


L 


73F6 108C 0000 TESTI 
73FA 27 IC 

FSFC 31 SF 

73FE 10BF 7775 

7402 20 


7404 108C 0011 TEST2 


408 27 
740À 31 


CE 


21 


7400 10BF 7775 


7410 20 


7412 CE 
JS 17 


0ù 


7708 DEPRGI 


C1E4 


7418 BE 7777 CLAV2 
741E 10BE 7779 

741F 88 1 

7421 BD EB2” 

7424 CI O1 

7426 27 9 

7428 C1 05 

7428 27 10 


742C 20 22 
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CHPY 
BEQ 
LEAY 
STY 
BRA 


CHPY 
BEG 
LEAY 
STY 
ERA 


LOU 
LBSR 


#0 
CLAVE 
-LY 
LIGI 
DEPROI 


#1? 
CLAV2 
LY 
LI61 
DEPRQI 


AO! 
DESSi 


TEST DU CLAVIER No 2—---- 


LDX 
LDY 
LDA 
JSR 
CMPB 
BEG 
C'PB 
BEG 
BRA 


1 


ÿ-—--DEPLACEMENT DE LA RAQUETTE 2-—--- 


$ 


TA2E 108C 0000 TESTS CMPY 
743227 IC BEQ 
"44 31 FF LEAY 
“434 10BF 7779 STY 
T43A 20 CE ERA 
742C 108C 9011 TEST4  CMPY 
1440 27 0 BEQ 
842 1 21 LEAY 
7444 19BF 7779 GIY 
7448 20 90 ERA 


244A CE 7J7E2 DEPRO2 LOU 
744) 17  OIAC LBSR 


t 


#0 
REBOND 
-1,Y 
LIB2 
DEPRGE 


#17 
REBOND 
LY 
LIGT 
DEPRE2 


KAQ! 
DESS1 


-—-DEPLACEMENT DE LA BALLE------—---- 


} 


7450 RE 7778 REBOND LDX 
7453 10BE 777D LDY 
7457 Bb  777F LDA 
745A F6 770 LDB 
745D 108C 0001 CPY 
7461 26 06 BNE 
7463 BD 26 BR 
7465 50 NEGB 
74bb F7 7780 STB 
7469 108C 0014 TESTS CMPY 
7460 26 06 BNE 
746F 8D A BSR 
7471 50 NECB 
7472 FT 7780 STB 
2475 BC 0027 TESTE CMPX 
747B 26  0b BNE 
747À 40 NEGA 
7478 B7 777F STA 
MATE À ES ERA 


COLBAL 
LIGBAL 
XBAL 
YBAL 
hi 
TESTS 
PINE 


YBAL 
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7480 8C 
7483 26 
7485 40 
748 B7 
7489 X 


748B 34 
748D Cë 
748F BD 
7492 3 


7494 17 
7497 30 
7499 BF 
749€ 351 


0002 SUITX 


0159 DEPBA 


AS 


749E 10BF 7770 


FAR? CE 
7444 BD 
F4A7 CE 
7449 BD 
“4AC CE 
74E F7 
74B1 BD 
74B4 Cë 
4B6 BD 
78B9 Cé 
T4BB BD 
J4BE BE 
AC1 C0 
740: 26 
740$ 16 


74C8 34 
7ACA 
CE 51 
74D0 
743 27 
74D$ ©1 
74? 
4DA 27 
74DC 31 
74DE 
J4E1 26 


TES 27 
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!E 
E80: 
4 
E80T 
8! 
6041 
ES3S 
1B 
E803 
47 
ES05 
FIFC 
IF TEMPO 
FC 
FF19 


20  TSTRGI 


IOBE 7775 


21 


ICAC E4 


2D 


21 


ICAC E4 


26 
21 


I0AC E4 


3E 
1D 


CAPX 
BNE 
NEBA 
STA 
BRA 


PSHS 
LDB 
J5R 
PULS 


LESR 
LEAX 
STX 
LEAY 
STY 
LDE 
JSk 
LDB 
JSF 
LDE 
STE 
JSR 
LD 
JSR 
LDE 
J5R 
LDX 
LEAX 
ENE 
LERA 


PSHE 
LDY 
LEAY 
CMPY 
BED 
LEAY 
CKPY 
BE 
LEAY 
CMPY 
BNE 
FEG 


LH 
PUTC 
B.PC 


EFFAC 

A. X 

COLEAL 

B,Y 

LIGBAL 

#ESC 

FUTC 
#FORM+J AUNE 
PUTE 

#$el 

CHIFAU 

CHFL 

#SC 

PUTC 
RFORM+BLANC 
PUTC 

YITES 


UN 


sa 


TEMPO 
CLAV 


J4E5 34 


74E7 Î0BE : 


MER 3! 
74ED 1OAC 
24FO 27 
74F2 21 


20 TSTRO2 PSHS 


7779 
21 
E4 
IE 


21 


T4F4 1OAC E4 


F7 2 
74F0 1] 
?784FB 1OAC 
T4FE 26 
7300 2 


7502 3 
304 CE 
7507 17 
7304 Bb 
7300 16 


7310 55 
7512 CE 
7315 17 
7518 Bb 
7518 16 


PEE ZS 
7520 17 
752 
7575 CE 
70 1? 
1 Véte « 
TÉcB 9D 
7620 F£ 
7620 Ci 


7679 97 
de & 


TÉT4 CE 
to de 
FacA 86 
asp F8 
7540 16 


7543 3e 
745 1 
7542 B4 
"S4A CE 
754D 17 
550 9D 
7552 F4 


20 GAIN2 
J7FE 
0214 
FT7F 
FF7È 


2 PERD! 
d0CD 
9° 
77F0 
00FZ 
F 
TIFE 
21 
34 
7808 
C1F2 
277F 
7780 
FFS4 


2ù PERD? 
O0AB 

01 

7F0 

OÛCE 

TA 

T7F5 


LU 


PULS 
PER 
LDR 
LOU 
LRGE 
ESR 
LDE 
CMPE 
BEC 
DU 
LEGR 
LDA 
LDE 
LERA 


PULE 
LBSR 
LDA 
LOU 
LBSR 
ESR 
LDB 


L Ja 
#TABCFT 
CONFTÉ 
ENE 
COMFT2 
HIS 
QUEST 
#AIR2 
MUSIC 
XEAL 
YBAL 
DEFBAL+3 


EFFAC 
#1 
ATABCFT 
CONPTÉ 
ENE 
COMPT I 
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7353 C1 21 CHPB HS 


7557 27 OF BEQ  QUEST 
7359 CE 7808 LDU  #AIR2 
755€ 17 O1CD LBSR MSI 
TSsF Bb  777F LDA IEAL 
7582 Fé 77B0 LDB  YBAL 
7565 16 FF2F LBRA  DEPBAL+I 
7568 CE 7810 QUEST LDU AIR 
73EB 17  OIBE LESR  NUSIB 
756€ 4F CLRA 

736F B7 77F5 STA  CONPTI 
7572 B7 77FB STA  COMFT: 
7575 35 7F PULS U.Y,X,DP,D,CC 
2577 BD EBO6 ATT JSR  GETC 
737 SD TSTB 

7978 27 FA BEG  ATT 

737D C1 4 CMPB 9477 

757F 1027 FD7F LBEG  DEPART+2 
7583 C1 OC CHPB #12 
7585 1027 72A4 LBEO  $EB2Z 
7589 16 FD79 LBRA  ECRAN 


t-—- SOUS-PROBRANME D'ENGAGEMENT —--- 


738€ B6 77FB ENG LDA  COMPT2 


758F BB 77F5 ADDA COMFTI 
392 19 DAA 

7593 1F 89 TFR AE 
7595 C1 094 CHPB #4 
7397 22 94 EHI BI 
759 8D 3D BSR 3 
739B 20 ZA BRA  FINENE 
759D C1 07 Bi CNPB  #40€ 
739 22 04 BHI EH 
zSA1 8D 41 BSR XIE 
TEAS 20 52 BRA  FINENG 
73A$ C1 14 2 CHPB  #$14 
TSA7 22 04 EHI  B3 
7549 8D 2) ESR X3 
TSAB 20 2A ERA  FINENE 
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7SAD Ci 
7SAF 22 
75R1 ED 


7SE3 20 


73ES C1 
7587 22 
73° D 
TSBP 2 


7980 C1 
+0br 27 
75C1 8D 
7503 D 


7503 C1 
340722 
73C9 BD 
508 20 


730) Ci 
F9CF 22 
75D1 BD 
7503 20 


75D$ 8D 


7507 39 


7508 8E 
DB BF 
JSDE 86 
7SE0 87 
743 39 


79E4 BE 
75E7 BF 
TSEA 86 
SEC B7 
SEF 39 


0005 
TI7B 
01 

TTIF 


6026 
777B 
FF 

T77F 


B3 CHPB 


B4 CPE 


BÈ CPB 


Bb CHPB 


B7 CWPB 


BB BSR 
FIMENS RTS 


X5 LDX 
STX 
LDA 
STA 
RTE 


X38  LX 
STX 
LDA 
STA 
RTS 


XBAL 
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73F0 34 
75F2 Cé 
75F4 F7 
79F7 BD 
75FA 35 


23FC 34 
JSFE A6 
7800 81 
7602 27 
7604 81 
7606 26 
7608 ÀE 
JbOA 31 
760€ 20 
760E 81 
7610 27 
7612 B7 
7615 BD 
7618 30 
b1A 20 
7EIC 3 


761E 34 
7620 Cé 
7622 BD 
725 Cb 
7b27 BD 
7628 44 
7628 27 
7629 Eb 
762F 33 
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1—--SOUS-PROGRAMME D' EFFACEMENT-——-- 


O4 EFFAC PSHS B 
20 LOB  #420 
6041 STB  CHDRAW 
EB3S JSR  CHPL 
84 PULS B,PC 
1 
3-—— GOUS-PROGRAMME DESS1 
t 
76 DESSI FSHS U,Y,X,D 
CO DEBI LDA ,U+ 
2 CFA 12 
18 BEQ FINI 
o OPA Hi 
0 BNE GR 
82 Lx 25 
1 LEAY 1,Y 
F0 BRA DER! 
00 GRD CHA # 
0b HG RET 
8041 STA  CHDRAH 
EBT3 JSR  CHPL 
O1 RET LEAX 1.X 
À ERA  DEBI 
Fb FINI PULE LU,v,K,D.PC 


7F COMPTA PSHS 
1B LIB 
EBOS JSR 
44 LDB 
E803 JSR 
BOUCLE DECA 
œB BED 
44 LDB 
# LEAU 


U,Y,X,DP, D, CC 
#ESC 

PUTC 
#FORN+BLEL 
PUTE 


ETIBL 
a 
EU 


7631 SD 
7632 27 
7634 33 
7b% 20 


7638 Ab 
J6IA 26 
763C BD 
TE5E SD 
7640 20 
7542 8D 
7644 BD 
TE4 CE 
2648 BD 
7648 Cb 
764D BD 
7ES0 35 


TÉ52 34 


Te5g 1€ 
7656 AG 
785€ BE 
7658 19 
ESC A7 


JESE 135 


660 54 
7662 EC 
7664 F3 
767 ÎE 
7669 10 
766E 19 
TéEC 24 
7RBE SC 
7bbF ÎE 
7871 1C 
7672 19 
7674 ED 


7E7b 7 


7678 34 
Vb7À ÀÆ 


T9 


LS 


C4 


J67C 10RE 42 


Tb7F 8E 


05 


ETIQ! 


C99 


BOUC9 


AFFZ 


BOUCLE 
LU 
BOUCLE 


au 

ET102 

c9o 

AFF2 

FIN 

C9929 

BEA 

NESC 

PUTC 
#FORMBLANC 
PUTC 
U,Y.X, DP, D, CC.PC 


D,C£ 


HFE 
SA 
PCINT+! 


5,U 
D,CC.PC 


D, CC 
JU 
POINT 
AE 
#$FE 


BDUC9 


AB 
#$FE 


AL 


D,CC. PC 


VE 
U 
2 


#5 
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7681 BD 13 BSR  AFFICH 


7685 35 B2 PULS  Y,X,A,PC 
7685 34 32 AFF4 PSHS V,X.A 
7687 AE C4 EDX .U 

7689 10AE 42 LDY 2 
768€ BE 05 DA #5 

768 6D 06 BSR  AFFICH 
7690 86 06 LDA  # 

7692 BD 02 BSR  AFFICH 
7694 55 B2 PULS  Y,X,A,PC 


7696 Eë8 C& AFFICHLDB AL 


7608 C4 FO PNDB #$F0 
789A 54 LSRE 

7898 S4 LSRE 

769€ 54 LSRB 

769 54 LSRE 

769€ CB 20 ADDB #530 
TEAO FT 6041 STE  CHIRW 
“4A3 BD  EBSS JSR  CHL 
Tbhé 30 O1 LEAX 1,1 

7608 Eb  Cb LB AU 

76AÀ C4 OF ANDE  #$0F 
T6C CB 30 ADDB #50 
76AE F7 604! STB  CHDRM 
7681 BD  EB33 IR  CHL 
7684 30 O0! LEAX 1, 

7ER4 39 RTS 


! 
3——-SOUS-PROGRAMME. MENU" 
î 


bB7 CE 7761 MENU LOU  #TAB2 
JEBA E6 CO BOUCS LDB  ,U+ 


TbEC C1 04 CPE #4 
76BE 27 OS BEQ TITRE 
76C0 ED  E203 JSR  PUTC 
JBCÈ 20 F5 BRA  BOUCS 
CS BE OOO0A TITRE LDX #10 
J6CB 108E O00A LOY #10 
HCC CE 7793 LDU  #TEXTS 
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76CF Eb 
76D1 Ci 
7ED3 27 
EDS F7 
76DE BD 
7EDB 30 
76DD 20 


TDF CE 
76E2 Eb 
REA Ci 
JbEE 27 
2bE8 BD 
TbEB 20 


HELD 8E 


CO BOUCE 
04 

CA 

5041 

EBSI 

02 

FO 


°7èC IT 
CO BOUC7 
4 

Où 

EBOS 

FS 


0002 REPONS 


J6F0 108E 0010 


7bF4 CE 
76F7 Eb 
TEF9 C1 
7bFE 27 
TEFD F7 
7700 BD 
7703 30 
770$ 20 
7707 BD 
10À SD 
7708 27 
770 C1 
770F 26 
7711 8 
7714 BF 


7717 CI 
‘119.26 
T'1B 
771E BF 


7721 C1 
7723 2b 
7729 BE 
7728 EF 
7728 39 


11 


779D 

CO BOUCE 
û4 

on 

6041 

ESSS 

01 

FO 

E80b CHDIX1 


FA 
71 
0 
2FFF 
TIFC 


32 CHOIX 
0ë 

1FFF 

TFC 


23 CHIX 
oë 

OFFF 

TTC 


FINMEN 


LDE 
CMPB 
BEQ 
STB 
JSR 
LEAX 
BRA 


LDU 
LDB 
CMPB 
BEG 
JSR 
BRA 


LDX 
LDY 
LDU 
LDB 
CNPB 
BEG 
TB 
JSR 
LEAX 
ERA 
JSR 
TSTB 
BEQ 
CHPB 
BNE 
LDX 
STX 


DfPB 
BNE 
LDX 
STX 


CHPB 
BNE 
UDX 
STX 


RTS 


#° 

#1ë 
#TEXT4 
.U+ 

#4 
CHOIX] 
CHDRAN 
CHPL 
1.X 
BDUCE 
BETC 


CHOIX 
#49 
CHOIX2 
#$2FFF 
VITES 


#50 
CHOIXS 
#S1FFF 
VITES 


#51 
FINMEN 
SSOFFF 
VITES 
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À 
3-—-SOUS-PROGRAMME DE MUSIQUE ----—--- 
L 


b031 TEMPO EQU  $6031 
6033 DUREE EQU  $603! 
6035 TIMBRE EQU  $6075 
603E OCTAVE EU  $605E 
ES1E NOTE EQU  $EBIE 


772€ 4 06 MUSIG PSHS D 


Ÿ Initialisation 

t 
772€ 7F 6031 CLR TEMPO 
7731 7F 6033 CLR DUREE 
7734 7F E0T CLR  OCTAVE 
7731 Eb C0 LDB  ,U+ 
2739 F7 32 STB  TEMPO+1 
TFC Eb C0 LDB  ,U+ 
JTE F7 6034 STB  DUREE+I 
J741E6 CO LDB  ,.U+ 
ST F7 6055 STB  TIMBRE 
T786 E6 C0 LDB  ,U+ 
7748 F7 6077 STB  OCTAVE#I 

Î 

LL On joue l’air 


774BE6 CO AIR LDB .U+ Premiere note 


7740 Ci 4 CB #4 Est-ce la fin? 
T74F 27 Où BER FINAIR Qui. alors FIN 
7791 BD EBIE JSR NOTE  Non.alors jouer 
7754 20 F5 BRA AIR Note suivante. 


7736 35 88 FINAIR PULS  D,PC 
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| 


t-----DEFINITIONS DES CONSTANTES 


L 


IB TABLE FCR 


47 
1B 
92 
1B 
60 
0C 
14 
(4 


1B TAB2 
4! 
1B 
90 
IB 
b0 


1È TAB: 


FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 


FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 


FCB 
FCB 
FCB 
FCB 
FCB 


0001 XBDITE FDB 


0001 CDLI 
000À LIB1 
0028 COL? 
0008 LIB2 


6003 COLBAL FDB 
0003 LIGBAL FDB 


01 XBA 
O1  YBAL 


FCB 
FCB 


ESC 
FORM+BLANC 
ESC 
FOND+VERT 
ESC 
TOUR+#NOIF 
$0C 

$14 

4 


ESC 
FORM+ROUGE 
ESC 
FOND+NOIR 
ESC 
TDUR+NOIR 
$0c 

$14 

ESC 

$4F 

4 


ESC 
FORM+CYAN 
ESC 

sac 

4 


———— 
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7781 


7789 


77BÀ 


770" 
7792 


7793 


779 


174 


50 


TEXTI 


TEXTE 


TEXTS 


TEXT4 


FCC 


FCR 


FCC 


FCE 


FCC 


FCB 


FCC 


IJQUEUR 1° 


4 


IJOUEUF 2/ 


4 


PING-PONS ’ 


ni 


{CHOISISSEZ VOTRE 


77AD 


77BF 


7700 
ae | 
Ext 
770 
7C4 
770$ 
77Cb 


7707 


TEE 
7709 
77CA 
T7CE 
TFCC 
77CD 
T7CE 
F7CF 


T/D0 
77D1 
T7D2 
TE 
7704 
775 
71Dé 


7707 


Cû 


Cû 


DEBER 


FCC 


FCE 


FCB 
FCE 
FCB 
FCB 
FCB 
FCE 
FCB 
FCE 


FCB 
FCE 
FCE 
FCB 
FCB 
FCB 
FCB 
FCE 


FCB 
FCE 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 


1 VITESSE (1,2,3) :/ 


4 vs 


UC sr 4 La 


4 ta 
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176 


20 RAI 


Bi BALLE 


02 
0001 POINT 


0005 TABCPT 
N01E 

00 

90 COMPTI 


6021 

0018 

00 

O0  COMPT2 


1FFF VITES 


0108 AIRI 
(104 
3135 
353 
3804 


FCB 
FCE 
FCB 
FCE 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 


FCB 
FCB 
FCB 
FCR 


FCE 
FCB 
FCB 
FCB 
FCB 
FCE 


FCB 
FCB 


FDB 


FDB 
FDB 
FCB 
FCB 


FDB 
FDB 
FCB 
FCE 


FDB 


FDB 
FDB 
FDB 
FDB 
FDB 


808 
70 
780€ 
780€ 


7810 
7812 
7814 
781é 
“818 
7BIA 


1018 AIR2 
0205 
2131 
7104 


(10C AIRS 
0102 
2170 
7130 
5131 
3504 


0000 


00000 Total Errors 


$1018 
$0205 
$121 
53104 


$010C 
$0102 
#3130 
83130 
$3131 
$3304 


INIBDX 
INIRAQ 
JAUNE 
JOY 
KTST 
LIGI 
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III. Le mur de briques 


1. Principe de jeu 


Dans ce jeu très connu, la raquette, commandée par la manette 9 se déplace 


horizontalement en bas de l’écran. 


A chaque fois que la balle touche une brique, elle change de sens et fait mar- 


quer 19 points au joueur. 


Le mur se compose de 199 briques réparties sur 5 rangées. 


Le joueur dispose de 8 balles par parties. Si les 199 briques sont abattues avant 


l'épuisement des balles, un nouveau mur est reconstruit. 


Pour démarrer le jeu et lancer les balles, il faut appuyer sur la touche 


ACTION de la manette 4. 


2. Listing de MUR 


CECTEN TELE EI ELITE NE EST ETO RESTES 


L Î 
Î M M OÙ U RRRR 1 
Î MN MM OU U R R ! 
L MMMM OU U OK AK } 
î NN OU U KR Li 
î N MN OU U  KRFR ] 
L M M OU R RK Li 
Î N M UUU R R 1 
! Li 
SULASSUNISNSTRNNINENTNNSEANSSTANERSEEE 


t Cooyright Michel OURY £ CEDIC NATHAN 


} 
} 


L 


à-——-DEFINITIONS DES EQUIVALENCES 


4118 CURSOR EQU 
E827 JOY  EQU 
E80F PLOT  EBU 
ESOC DRAW  EQGU 
50ZB FORME  EBU 
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le 11/53/84 


#4118 
$E827 
#ES0F 
$EBOC 
$603B 


7300 


7500 34 
7302 17 


7305 CE 
7308 FF 


7208 CE 
730€ E6 
7310 CI 
7312 27 
7214 BD 
7317 20 
7519 


E809 KTST EQU  $E809 
EB06 ŒETC EU  $EB06 
E803 PUTC EQU  $EBCI 
0040 FORM EU 540 

0050 FOND  EGU 
0060 TOUR EDU 
0001 ROUGE EOU 
0002 VERT  EGU 
0003 JAUNE EBU 
0004 BLEU EBU 
0005 MAGEN EQU 
0006 CYAN  EBU 
0007 BLANC EQU 
0000 NOIR  EGU 
001B ESC  EQU #18 

EB33 CHPL EDU  $E833 
6041 CHDRAN EGU  $6041 
602D USERAF EQU  $602D 


en 
SE 


—n 


4 OO LA D C4 tr 


© 


' 
1-—-PROGRANE PRINCIPAL --—--"""-- 
! 


DR6  #7300 


1 
t-—-CHOIX DU MENU" """ 
1 


7F DEPART PSHS  U,Y.X,DP,D,CC 
OJEA LBSR MENU 


L 
ÿ-—--INITIALISATION DE L'ECRAN--------- 
Î 


7752 LDU  #DEBGRD 
602D STU  USERA# 


772D ECRAN LOU  #TABl 
CO DEBI LDB ,U+ 


04 CHPB #4 

05 BEQ  FINECK 

EBOS JSR  PUTC 

Fi BRA  DEBI 
FINECR À 


7319 7F 6041 CADRE CLR 


JSiC C6 O1 

7HE F7 038 
7321 SE 0007 
7324 108E 0097 
7328 BD EBOF 
732B 108E 0007 
J32F BD EBOC 
7332 0138 
7335 BD EBOC 
7338 108€ 0097 
733C BD EBOC 


753F 17  034B 60 


7542 Cb 1B 

7344 BD  ES803 
FS47 C6 59 

7749 BD EBOS 
734€ CE 20 

JS4E F7 6041 
7351 8E 0029 
7354 BF 774 
7357 8E 0001 
TSSA BF 7744 
733D 108€ 0014 
7361 17 020€ 


7364 BE 0905 
7367 108E 0015 
756B CE 7772 
TS6E E& C0 
7570 C1 04 
737227 A 
7374 FT 6041 
7377 BD EBS 
737 30 01 
737C 20 FO 


JITE CE 7778 BOUC3 


881 SE  OOIE 
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LDB 
STB 
LDX 
LDY 
JSR 


LBSR 


INIBOX LDB 


{ 


3-——INITIALISATION DES TEXTES 


LDX 
LDY 
LOU 


POUCL LDB 


CHPE 
BEO 
STB 
JSR 
LEAX 
ERA 
LOU 
LDX 


CHDRAM 
#ROUGE 
FORME 
#7 
#151 
PLOT 
+7 
DRAN 
#512 
DRAN 
#151 
DRAN 


MUR 


HSC 
PUTC 
#FOND+NO IR 
PUTC 
#32 
CHDRAW 
#4 
FINBDI 
#1 
XBOITE 
#29 
BOXF 


#5 

#21 
#TEXTI 
.h 

+4 
BOUC3 
CHDRAW 
CHPL 
1.X 
BOUCL 
#TEXT© 
#30 


…—s…—_—… 


7384 Eb CO BOUC4 LDE 
7586 C1 04 CHPB 
7388 27 OA BEQ 
TS8A F7 6041 STE 
738D BD EBS3 JSR 
7390 30 O1 LEAK 
7392 20 F0 ERA 
7594 8E 0012 BOUCS LDX 
7797 108E CO1S LDY 
7598 CE 777F LOU 
739E E6 CO BOUCE LDB 
TSAO C1 04 C“PB 
7342 27 OÀ BEQ 
7SA4 F7 6041 STR 
7SA7 BD ES3t JSR 
75M 30 O1 LEAX 
JEAC 20 F0 ERA 
73RE Cb 1B ZERO LDB 
73B0 BD EBO3S JSR 
7383 Ce 52 LDB 
73B5 BD EBOS JSR 
7388 7F 7780 CLR 
TSBE 7F 778D CLR 
T3BE 86 01 LDA 
7SC0 CE 778E LOU 
TSCY 17  O1C0 LBSR 
73Cb 86 02 LDA 
7SC8 17  OIBB LESR 
73CB 86 OS LDA 
75CD 17  OIBE LESR 


.U+ 

# 
BOUCS 
CHDRAN 
CHPL 
1, 
BOUC4 
#18 
#1 
ATEXTZ 
. U+ 


FUTC 


-—RAQUETTE ET BALLE 


7300 BE 7748 INIRAG LDX 


73D3 10BE 778A LDY 
73D7 CE 776A LDU 
T3DA 17 024 LBSR 
7300 BE 774€ LDX 
T3E0 10BE 774€ LDY 
7SE4 CE 7770 LOU 
T3E7 17 0238 LBSR 
TIEA 4F CLRA 
73EB BD EB27 MAN JSP 
TEE 24 FB BCC 


COLRAG 
LIBRAG 
RRAQUET 
DESS1 
COLBAL 
LIGBAL 
#BALLE 
DESS1 


J0Y 
MAN 


tel 


ÿ--—-TEST DU CLAVIER-----——----""---- 


#2 
DECPT 
CDLRAQ 
LIGRAG 


JOY 
a 
TEST: 
#7 
TESTI 
FINCLA 


3-——--DEPLACEMENT DE LA RAQUETTE-------- 


#1 
FINCLA 
-1.X 
COLRAG 
DEPRAG 


#3e 
FINCLA 
1.X 
COLRAQ 


#RAQUET 
DESS1 


DECPT 
TEMP! 


3-—--DEP'ACEMENT DE LA BALLE----—---- 


73F0 86 02 CLAV LDA 
73F2 B7 77B4 STA 
73F5 BE 7748 TEMPI LDX 
73F8 10BE 774A LDY 
TFC 4F CLRA 
73FD BD EB27 JSR 
7400 C1 OS CPE 
740227 12 BEQ 
7404 C1 07 DHPB 
7406 27 02 BEQ 
7408 20  1C ERA 

] 

L 
7404 8C 0001 TESTI CMPX 
740 27 17 BEQ 
740F 30  !F LEAX 
7411 BF 7748 STX 
7414 20 OA BRA 
7416 BC 0024 TEST2 CWPX 
74927 OB BEQ 
7418 30 01 LEAX 
741D BF 7748 STX 
7420 CE 776A DEPRAQ LOU 
7423 17 OIFF LESR 
7426 TA 77A4 FINCLA DEC 
7429 26 CA BNE 

Î 

} 
7428 BE 7740 JEU  LDX 
742 108E 774E LDY 
7472 Bb 7750 LDA 
7435 F6 7751 LDB 
7438 17 020€ LBGR 
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COLBAL 
LIGBAL 
XBAL 
YBAL 
EFFAC 


743B 30 
743D 31 
TAF BF 
7442 10BF 


7448 BC 
74927 


7448 BC 
744 2b 
7450 49 
7451 B7 


7454 17 
7457 5D 
7458 26 
745 SD 
745€ 74 
FATF 26 
7461 17 
7464 86 
746E B7 
469 Fb 
746€ 50 
746D F7 
7470 SE 
7472 IC 
7474 19 
7475 B7 
7478 7F 
747B 86 
7470 CE 
7480 17 
7483 20 


485 34 
7487 CE 
7489 ED 
748€ 35 


748€ 108€ 
7492 2 
7494 Cé 
7498 F7 


7499 CE 
749€ 17 


86 
A5 
774 
T74E 


0002 
(es) 


0027 DROIT 
04 

INVA 
7750 


O1FC BRIG 


34 
29 

T7B0 
08 

0229 
BE 

7780 
7751 ©4 


7151 
0A 
FE 


778D 
778C 
01 
778E 
0103 
02 


04  PING 
07 

E803 

84 


0001 SUP 
0$ 

üi 

7751 


7770 DES 
0186 


A,X 
B,Y 

COLBAL 
LIGBAL 


Le 
INVA 


#39 
BRIG 


XBAL 
CALCUL 


SUP 
PING 
NBAL 
54 
MUR 
Li) 
NBAL 
YBAL 


YBAL 
#10 
#$FE 


POINT+1 
POINT 
#1 
#TABCPT 
COMPTA 
SUP 


749F BE 77A2 REBOND LIX 


7442 30 
744 26 


J4R6 108C 0012 
74NA 1026 FF42 


J4AE CS 
74B0 F7 
7483 BE 
7486 54 
7488 BE 
74BB 30 
T4BD AC 
74BF 2b 
7401 Œ 
7404 17 
J407 8C 
J4CA 277 
74CC Cé 
74CE F7 
741 5 
7403 16 


746 30 
748 AC 
74DA 2b 
74DC CE 
74DF 17 
J4E2 70 
TES 
74E7 lb 


TEA 30 
J4EC AC 
J4EE 2b 
7AF0 CE 
74F3 17 
74F6 8C 
74F9 27 
JAFB Cb 
74FD F7 
7500 35 
7502 16 


7505 4F 


7506 CE 
7509 17 
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IF TEMPO LEAX 
FC BNE 
CHPY 
LINE 
FF LDB 
7751 STB 
TTAC LDX 
10 PSHS 
7748 LDX 
01 LEAX 
E4 CHPX 
15 BNE 
778 LOU 
O1FC LESR 
0002 CPX 
œ BEG 
FF LDB 
7750 STB 
10 Si PULS 
FFIA LERA 
01 TST2 LEAX 
E4 OPX 
Œ BNE 
TTBI LDU 
OIEI LESR 
7750 NE6 
19 PULS 
FFO0b LEA 
O1 TSTS LEAX 
E4 CPX 
1 BNE 
77B1 LDU 
01CD LBSR 
0027 CHPX 
] BEQ 
01 LDB 
7730 STB 
10 92 AULS 
FEEB LERA 
TST4  CLRA 
T7BB LOU 
01B7 LES" 


VITES 
-LX 
TEMPO 
#1B 
CLAV 
+1 
YBAL 


750C BD EB27 ISTS JSR 
750F 24 FB BCC 
7511 BE 774€ LDX 
7514 10BE 774E UY 
7518 B6 7750 LDA 
7S1B F& 7751 LDB 
TSIE 17 0126 LBSR 
7521 JA 77AI DEC 
7524 B6  77AI LDA 
7527 IC FE ANDCC 
7529 46 RORA 
7574 24 03 BCC 
752€ JA 774F DEC 
752F 7F ZIBCCLR CLR 
7532 7F 7180 CLR 
7525 8 03 LDA 
7537 CE 7JJBE LOU 
J53A 17 0049 LESR 
7520 7D 77A1 TST 
7540 1026 FEAC LBNE 
754 CE 77C3 LOU 
7547 17 0179 LBSR 
TS4A BE 7793 LDX 
7540 BC 779A CHPX 
7550 23 03 BLS 
7552 BF 779A STX 
7555 86 02 S3 LA 
7557 CE 778E LOU 
7S5A 17 0029 LESR 
755D CC 0000 LDD 
7560 FD 7703 STD 
7563 86 08 LDA 
7565 B7  77AI STA 
7568 8 BE LDA 
7S6A 87 77B0 STA 
TS6D 16 FDCF LERA 


3 


J0Y 
TSTS 
COLBAL 
LIGBAL 
XBAL 
VAL 
EFFAC 
BALLES 
BALLES 
#4FE 


CLR 
LIEBAL +1 
POINT 
POINT+I 
LA 
#TABCPT 
COMPTA 
BALLES 
CLAV 
SAIRS 
MUSIC 


3-—-SOUS-PROGRANME DE BOITE--——— 


7970 BE 7744 EDXF  LIX 
7573 BD EBSS BOUC JSR 
7976 30 O1! LEAX 
7578 BC 774 CPX 


XBOITE 
CHPL 
I,X 
FINBOI 


7578 26 Fb BNE  BOUC 


757D 31 21 LEAY  1,Y 


757F 108C 0019 CHPY #25 
7583 26 EB BNE BOXF 
7385 39 RTS 


L 
t-—-SOUS-PROGRAME. COMPTELR-———""--- 
! 


7384 34 7F COMPTA PSHS U,Y,X,DP,D,CC 


7588 C& 1B LDB #ÆSC 
7584 BD EB03 JR  PUTC 

TS8D C4 44 LDB  #FORMBLEL 
758F BD  E803 JSR  PUTC 

7592 4A BOUCLE DECA 

7593 77 OB #ÆQ  ETIOI 

7595 E& 44 LDB  4,U 

7597 33 % LEA 6. 

7599 SD TSTB 

7594 27 Fb BEQ BOUCLE 
75 F3 41 LEAU LU 

TS 20 F2 BRA BOUCLE 
7500 A8 44 ETIQI LDA 4,U 

75A2 24 06 BNE  ETIG2 

7514 BD 14 ESR  C99 

75A6 ED 3B BSR  AFF2 

7SAB 20 04 BRA FIN 

JSAA BD 1C ETIO2 ESR  C9999 
TSAC 8D 43 SR  AFF4 

TSRE Ch 18 FIN LDB SC 

7580 BD  EB03 JSR  PUIC 

7SB3 Cé 47 LDB  BFORM#BLANC 
7585 BD  EB03 JSR  PUTC 

75B8 35 FF PULS  U,Y,X,DP,D, CC, PC 


75BA 34 07 C99 PSHS D,CC 


75BC 1C FE ANDCC FE 
TSBE A 45 LDA SU 
75C0 BB 7780 ADDA  POINT+I 
7SC3 19 DAA 

7SC4 A7 45 STA  S,U 
75Cé 35 67 PULS  D,CC,PC 
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75CB 34 07 C9999 PSHS 
JSCA EC 45 LDD 
75CC FB 7780 ADDB 
TSCF 1E 69 EX6 
7SDI 1C FE ANDCC 
75D3 19 DAA 
75D4 24 OO! ECC 
7506 INCB 
75D7 1E 89 BOLC9 EXE 
75D9 BB 778 ADDA 
75DC IC FE ANDCC 
7SDE 19 DPA 
75DF ED 45 STD 
7SE1 35 87 PULS 
75E3 34 12 AFF2 PSHS 
755 M C4 LDX 
75E7 10€ 42 LDY 
JSEA 86 05 LDA 
75EC BD 7604 JSR 
1SEF 35  B2 PULS 
7SF1 34 32 AFF4  PSHS 
75F3 AE C4 LDX 
75F5 10AE 42 LDY 
7SF8 8 05 LDA 
75FA BD 7404 JSR 
15FD & 06, LDA 
JSFF BD 7604 JSR 
7602 35 2 PULS 
7804 EE C6  AFFICH LDB 
7£O8 C4 FO ANDE 
2600 54 LSRE 
7609 54 LSRB 
760A 54 LSRE 
7608 54 LSRE 
760C CB 29 A0DB 
360€ F7 ED41 STR 
7611 RD ER3 JSR 
7b14 30 O1 LEAX 
7616 Eb C4 LDB 
2b18 C4 OF ENDB 
JbiA CB 39 ADDE 
2bIC F7 4041 STE 
7b1F BD EBE JSR 
2622 30 O0! LEAX 
7624 3° RTS 


D,CC 
SU 
POINT#1 
A,B 
#sFE 


BOUC9 


A,B 
POINT 
#4FE 


9, U 
D,CC,PC 


Y,X,A 
.U 

2,L 

#5 
AFFICH 
Y,X,8,PC 


AFFICH 
Y,X,A,PC 
AU 

#eFO 


#s30 
CHDRAW 
CHPL 
1, 
AU 
#30F 
CEX'E 
CHDRAN 
CHPL 
1,X 


7825 34 
7627 6 
712 81 
762 27 
752) 81 
762F 26 
7631 AE 
768 51 
75 2 
7637 BI 
7639 27 
763B B7 
763 BD 
7641 30 
7843 20 
7645 35 


7647 34 
7649 C6 
7b4B F7 
764E BD 
7651 35 


7853 34 
7655 Bb 
765B Cé 
7654 3D 
765B 48 
7e5C 58 
765D 24 
765 4 
7660 C3 
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! 


3-—-SOUS-PROBRAME DE DESSIN-———--- 


1 


7h DESSI PSHS 
CO DEBUT LDA 
2 CHA 
18 BEG 
ol OPA 
06 BNE 
62 LDX 
21 LEAY 
FO ERA 
00 GRD CHA 
0 BEN 
6041 STA 
EBS3 JSR 
Of PRET  LEAX 
E2 BRA 


F6 FINDES PUS 


U,Y,X,D 
.U+ 

” 

FINDES 

# 

ERD 

2,S 

L,Y 

DEBUT 

# 

RET 

CHDRAU 
CHPL 

Lx 

DEBUT 

U, Y, X,D,PC 


--—-SOUS-PROGRAME. D’ EFFACEMENT————- 


? 
04 EFFAC PSHS 
2 LDB 
8041 STB 
E833 JSR 
84 PULS 
L; 


3-——-SDUS-PROBRANME DE CALCUL 


38 CALCUL PSHS 
T14F LDA 
A0 LDS 
MUL 
LSLA 
LSLB 
01 BCC 
INCA 


4118 PLUS ADDD 


B 
H20 
CHDRAN 
CHPL 
B,PC 


Y,X,D 
LIGBAL+1 
#60 


PLUS 


CURSDR 


7bb3 FB 
7666 1F 
7668 33 
766À 8E 
766D C& 
7b6F BD 
7672 Cb 


7674 A6 
7676 A 
7678 2b 
767A 30 
767C I 
767F SA 
7680 27 
7682 20 


7684 E7 
7686 Cb 
7b68 BD 


768B 35 


768D C6 
768F F7 
7692 BE 
7695 BF 
7698 108€ 
769C CE 
769F Eb 
76A1 Ci 
76AS 27 
76AS ED 
7608 Eb 
76AR BD 
7bAD BE 
7080 DD 
76B3 30 
76BS 8C 
JER8 26 
76BÀ 31 


1——-SOUS-PROBRAMME. MUR" 


T4 ADD 
03 TFR 
SF LEAU 
7762 LDX 
il LDB 
EBOS JSR 
08 LDB 
84 BOUC10 LDA 
C4 CHPA 
OA BNE 
ol LEAX 
C8 D8 L'EAU 
DECB 
02 BEQ 
FO ERA 
bl FINCAL STB 
14 LDB 
E805 JSR 
Bb PULS 
1 
Î 
82 MR  LDB 
6041 STB 
0002 LDX 
7744 STX 
0001 LIDY 
TTAS LOU 
CO BOUCI LDB 
04 CPE 
1D BEB 
EBOS JSR 
CO LDB 
EB0I JSR 
T4 LDX 
E0u9 BUUC£ Jon 
01 LEAX 
0028 CHPX 
Fb BNE 
21 LEAY 


Y,X, D, PC 


PUTC 
BOITE 


fan: 
[Es ae 


1, 
#40 
BOUC? 
1,Y 
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TEBC 108C 000€ CHPY #6 
“éC0 26 DD BNE  BOUCI 
7602 59 FINMUR RTE 


Î 
ÿ-—---SOUS-PROGRANME DE MUSIQUE -—--—--- 
} 


6031 TEMPO EQU  $6071 
6033 DUREE EQU  $6057 
6035 TIMBRE EQU  $6035 
6O3E OCTAVE EQU  $603 
EBIE NOTE EBU  $EBIE 


7bC3 34 OO MUSIC PSHS D 


! 


! Initialisation 

} 
76C5 7F  EOS1 CLR  TEWO 
76CB ?F 6033 CLR DUREE 
“bCB 7F  60TE CLR  OCTAVE 
JÈCE Eb CÙ LDE .U+ 
7bDO F7 6032 STE  TEMPO+1 
J6D3 Eb CO LDB  ,U+ 
76DS F7  8OT4 STR  DUREE+I 
TEDB E& CO LDE  ,U+ 
JbDA F7 6035 STB  TIMBRE 
7bDD E& CO LOB  ,U+ 
2DF F7 6017 STR  DCTAVE+#I 

L] 

! On joue l'air 

L 


J6E2 Eb CO AIR  LDB .U+ 


76E4 Ci 04 CPE #4 
JbEb 27 05 BED  FINAIR 
76E8 BD EBIE JSR NOTE 
J6EB 20 F5 ERA AIR 


JHED 35 86 FINAIR PUS  D,PC 
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#-——-SOUS-PROBRAMME DE MENU------------ 


#TAB2 
U 

#4 
TITRE 
PUTC 
BOUS 
#10 
#10 
#TEXT4 
Ut 

#4 
FINMEN 
CHDRAY 
CHPL 
2,1} 


BOUE 


#TABS 
Ut 
#4 
BOUB 
PUTC 
BOU7 


3-—--DEFINITIONS DES CONSTANTES-——----- 


| 
2HEF CE 7736 MENU LOU 
76F2E68 CD BOUS LDB 
JbF4 C1 04 CHPB 
TEF6 27 OS BEG 
JbF8 BD EG03 JSR 
7EFB 20 FS BRA 
76FD BE  OO0À TITRE LDX 
7100 108E 000AÀ LDY 
7704 CE 778b LOU 
7707 Eb CO BOUS LDB 
7109 C1 04 CNPB 
770B 27 OA BE 
T70D F7 6041 STB 
7710 BD EBS: JSR 
7713 30 02 LEAX 
T715 20 F0 BRA 
7717 CE 7741 FINMEN LOU 
TTIA Eb CO BOU7 LDR 
771C C1 04 CNKPB 
TAE 27 05 BEQ 
7720 BD EBOS JSR 
7723 20 F5 BRA 
7725 8b 00 BOUS LDA 
7727 BD EB27 BOU9 JSR 
772 24 FB BCC 
FE: 37 RTS 

L 

| 
TT 1B TABI FCB 
TI2E 47 FCB 
772F 1B FCB 
7730 52 FCB 
7731 1R FCB 
7732 &Ù FCB 
7733 ( FCB 
7754 14 FCB 
TT 04 FCB 


ESC 
FORM+BLANC 
ESC 
FOND+VERT 
ESC 
TOUR+NOIR 
$0C 

$14 

4 
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1B TAB2 FCB 
4i FCB 
1B FCB 
50 FCB 
1B FCB 
b0 FCB 
oc FCB 
14 FCB 
1B FCB 
4F FCB 
04 FCB 
1B TABS FCB 
La FCB 
04 FCB 

XBOITE RMB 

FINBOI RNB 


0012 COLRAQ FDB 
0013 LIGRAG FDB 
0013 COLBAL FDB 
0011 LIGBAL FDB 


FF  XBAL FCB 
FF  YBAL FCB 
00 DEBGERD FCB 
00 FCB 
00 FCB 
00 FCB 
00 FCB 
00 FCB 
FF FCB 
FF FCB 
18 FCB 
TE FCB 
TE FCB 
FF FCB 
FF FCB 
1e FCB 
TE FCB 
18 FCB 
00 GRD2 FCB 


EAN 
7764 
TS 
7766 
7767 
7768 
7769 


776À 
77B 
776€ 
77bD 
T6E 
TTÈF 


7770 
2771 


7772 


TITI 


7178 


TITE 


717F 


7785 


778b 


778B 


FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 


RAQUET FCB 


BALLE 


TEXTI 


TEXF2 


TEXTS 


TEXT4 


FCB 
FCB 
FCB 
FCB 
FCB 


FCB 
FCB 


FCC 


FCB 


FCC 


FCB 


FCC 


FCB 


FCC 


FCB 


$20 
$80 
$80 
$80 
$20 
2 


$8! 
2 


/SCDRE/ 


/RECORD/ 


JBALLES/ 


/ MR/ 
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0000 POINT FDB 
0008 TABCPT FDB 
0017 FDB 
01 FCB 
0000 COMTI FDB 
O0IF FDB 
0017 FDB 
01 FCB 
0000 COMPT2 FDB 
0014 FDB 
0017 FDB 
00 FCB 


68  BALLES FCB 


1FFF VITES FDB 


DECPT RMB 
IB COU FCB 
4 FCB 
1B FCB 
4e FCB 
1B FCB 
sl FCB 
1B FCB 
4 FCB 
1B FCB 
[A FCB 
04 FCB 
BE NEAL FCB 
0106 AIRL  FDB 
0104 FDB 
1133 FDB 
356 FDB 
5804 FDB 
1018 AIR2  FDB 
0205 FDB 
3131 FDB 
3104 FD 


$010C 
$0102 
$3130 
$3130 
$3151 
53504 


0 7703 010C AIRT  FDB 

770$ 0102 FDB 
ë 7707 1130 FDB 
23 T7C9 7130 FDB 
il 71CB HS FDB 
0 77CD 3504 FDE 


1 0000 END 


20 00000 Total Errors 


ESC 
FORN+NOJR 
ESC 
FORM+CYAN 
ESC 
FORM+ROUGE 
ESC 
FORM+BLEU 
ESC 
FORM+JAUNE 


AFF2 
FFF 
AFFICH 
AIR 
AIRI 
AIR2 
AIRJ 
BALLE 
BALLES 
BLANC 
BLEU 
BOUS 


DEBGRD 
DEBUT 
DECPT 
DEPART 
DEPRAQ 
DES 
DESSI 
DRAM 
DROIT 
DUREE 
ECRAN 
EFFAC 
ESC 
ETIGI 
ET102 
FIN 
FINAIR 
FINBOI 
FINCAL 
FINCLA 
FINDES 


INIBOX 
INIRAG 
INVA 
JAUNE 
JEU 
JOY 
KTST 
LIEBAL 
LIGRAG 
MABEN 
MAN 
MENU 
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196 


XBOITE 
YBAL 
ZERO 


0000 
EBIE 
60% 
7485 
EBOF 
760 
778€ 
E803 
77bÀ 
749F 
7641 
0001 
74D1 
7500 
7555 
7469 
748€ 
172 
773 
TIH 

778 
7442 
73FS 
6051 

7408 
7416 
1772 
7778 
7T7F 
T78b 
6035 
7BFD 
0060 
74D6 
J4EA 
7505 
750€ 
602D 
0002 
77R2 
7730 
714 
7751 
TSAE 


Chapitre 9 
Le 6899 


Le 6899 représente la transition entre le microprocesseur 8 bits 6899 et la 
famille 68099 à 16 bits. 


I. Architecture 


Le 6899 reprend tous les registres du 689. Il comporte en outre des registres 
supplémentaires dont un registre d’index à 16 bits (Y), un pointeur de pile uti- 
lisateur à 16 bits (U) et un registre de page directe à 8 bits (DP). 


On peut utiliser U ou S comme pointeur de pile, alors que le registre d’index 
peut être X, Y, U, S ou PC. Le registre DP permet un accès rapide à une zone 
d’adressage direct qui peut être située n’importe où dans la mémoire. 


Les accumulateurs A et B (8 bits) sont concaténables en un registre 16 bits (D) 
dont A constitue la partie haute et B la partie basse. 


DO D7 


AO AIS — CC 
— VSs 
B 


16 


contrôle des FIRQ 
interruptions TRÔ 
DMA/BREO 
R/W 


El 
en 


S 
_ 
nm 
mi 
# 
el 
A 


oT 
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Registres programmables du microprocesseur 
IS 6 


X — Revistre index 


Y — Registre index 


U — Pointeur de pile utilisateur 


S — Pointeur de pile système 


Registres pointeurs 


Compteur programme 


Accumulateurs 


— 
La) 


Registre d'adressage direct (page) 


7 (3) 


VIC] CC — Registre codes condition 


Registre codes condition 


Retenue 
Dépassement 
Zéro 
— Négatif 
Masque d'interruption IRQ 
ns Demi-retenue 
à —— Masque d'interruption FIRQ 
État de sauvegarde 


II. L’adressage 


La souplesse d’adressage est une des forces du 6899 qui possède tous les modes 
du 6898 plus l’adressage indirect pour les modes étendu et indexé. 


L’adressage relatif (branchement) permet d’obtenir un déplacement signé de 8 
ou 16 bits dans le compteur programme (PC). 


En mode indexé on peut utiliser comme index l’un des registres X, Y, U, S ou 
PC avec les possibilités de décalage suivantes : 


— Zéro, 

— Zéro avec post-incrémentation de ! ou 2, ou prédécrémentation de 1 ou 2 
automatique, 

— nombre signé de 5, 8 ou 16 bits, 

— accumulateur À, B ou D. 
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III. Le jeu d’instructions 


Le jeu d'instructions du 6889 


Instructions de branchement 


<< | 


DRE 


Mode 
d'adressage 
Instruction Forme Relatif Description 
BCC BCC Branchement si C =@ 
ee Brancht. long si C=@ 
BCS BCS 2 |Branchement si C=1 
LBCS Brancht. long si C=1 


Branchement si Z=1 


Brancht. long si Z=1 


BGE BGE 2C 3 Branchement si >@ e e je 
LBGE 10 | 5(6) Brançht. long si >ÿ 
2C (signé) e e e e 
BCT | BGT 2E 3 Branchement si >@ e Le e je 
LBGT 10 | 5(6) Brancht. long si >@ 
| 2E (signé) e |e ste 
+1 
BHI BHI 2 3 Branchement si > (non |e le e je 
LBHI 10 | 5(6) Brancht. long si >signé) | e | e e je 
2 ju 
BHS BHS 24 3 Branchement si > (non | e | e e je 
LBHS 10 | 5(6) Brancht. long si >signé) | e | . je 
24 
BLE BLE 2F | 3 Branchementsi< [ele [eo le le 
LBLE 10 | 5(6) Brancht. long si < eee je |e 
2F 
BLO BLO 25 3 Branchement si < e je je je le 
LBLO 10 | 5(6) Brancht. long si < ele je le je 
25 


Branchement si < (non |e |e 
Brancht. long si <signé) | e | 


Branchement si < e IE 
Brancht. long si <signé) | + | 


Branchement si <ÿ 
Brancht. long si <ÿ 


Branchement si Z=ÿ 
Brancht. long si Z=-@ 


Branchement si >ÿ 
Brancht. long si >@ 


Brancht. inconditionnel 
Brancht. long incond. 


Non brancht. incond. 


2 
3 
2 
4 |Nonbrancht.longincond.| e |e |e |e |e 
2 | Branchement à un sous- 
programme ee le lee 
3 |Brancht. long à un sous- 
programme eee lee 
BVC BVC 28 3 |2 | Branchement si pas de 
débordement ele ele 
LBVC 10 | 5(6) | 4 | Brancht. long si pas de 
28 débordement ele le lee 
BVS BVS 29 3 |2 |Brancht. si débordement | e Je |e E T 
LBVS 10 | 5(6) | 4 | Brancht. long si débor- 
29 dement ee ele le 
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Le jeu d’instructions du 6899 


Mode d’adressage 
Instruction | Formes Immédiat Direct Indirect Étendu 
OŒPl-1!# Op Es E lOp| - |# 
ABX A 
ADC 2 | 2 
2 2 
ADD 2 2 
2 2 
4 13 
AND 2 2 
2 2 
3 2 
ASL 
ASR 
07 | 6 2 
BIT 2219/1412 4+ 
2/2 [DS | 4 2 4+ 
CLR 
OCF| 6 2 | 6F !6+12+17F | 7 3 
CMP 2 2 | 9I | 4 2 | Al!4+]}2+) BIS 3 
2 2 |DI | 4 2 |Eli4+12+|F1|S5 3 
a) 4 [10 | 7 3 1 1017+|13+|10|8 4 
93 A3 B3 
5 4 1117 3 |1I117+13+11118 4 
9C AC BC 
S 4 [111 7 3 |1117+13+111/8 4 
93 A3 B3 
4 3 [916 2 |ACI16+}2+ |BCI 7 3 
S 4 | 10|7 3 (1017+13+|1018 4 
9C AC BC 
COM 
03 | 6 2 | 63 |16+ 124 | 73 | 7 3 


Description 


sis 
<l- 


B+X-—X(non signé) 
A+M+C-—A 
B+M+C-B 


-|.] 


fe 


| ssl-+-)-- 
[fs] 


Compare M à À 
Compare M à B 
Compare M:M +1 à D 


Compare M:M+1àS 


Compare M:M +1 à U 


Compare M:M+1 à X 
Compare M:M+1 à Y 
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Mode d’adressage 
Immédiat Direct Indirect Étendu 
Oœ|-|#/0œ]-]#/0p/-1#1/0|- 14 


CWAI — #2 . 

Da sas lu ES He NES 

DEC 
7 13 

EOR S | 3 
5 13 

EXG 

INC 7 
7 13 
4 3 

JSR 8 | 3 

LD S 13 
5 13 
6 | 3 
1 | 4 
6 | 3 
6 | 3 
1 | 4 

LEA 

Légendes : 

OP Code d’opération hexadécimal 


— Nombres de cycles du 6899 
Nombre d’octets de programme 

+ Addition arithmétique 

— Soustraction arithmétique 
Muitiplication 


M Complément de M 

—+ Transférer dans 

H Bit de 1/2 retenue (bit 3) 
N Bit de signe 


Inhérent 


Op 


# 


Description 


CC.IMM-—CC Attente d'interruption 


ra 


Ajustement décimal de A 


4A 
SA 


A-1-A 
B-1-B 
M-1-M 


A% M>A 
BH MA 


RI-R2(2) 


4C 
sC 


D] D 


A+I-A 
B+1-B 
M+1-M 


EA(3)PC 


Saut à un sous-programme 


MA 
M-B 
M:M+1-D 
M:M+1>S 


MM#+I-U 
MM+1-X 
MM+1-Y 


EAG)>S 
EA(G3)-U 
EAG)-X 


= 


Bit de zéro 


Bit de dépassement (en complément à 2) 
Retenue de l'Unité Arithmétique et Logique 


Test puis : — mise à 1 si vrai 


— mise à Ÿ si faux 


Non affecté 

Registre de code condition 
Concaténation 

OÙ LOGIQUE 

ET LOGIQUE 

OÙ EXCLUSIF LOGIQUE 
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Etendu 
| - #1] 
LL 
SE 
70 
2+ S 
| 
LL 1 
ten 
[mn 


Mode d'adressage 
[Diet | 
FA 
hi 
un 
2 
ii 
2 


: 
BA 
1 


4+ |2+ | F2 


4+ |2+ 


Indirect 
Opi-|$# 
68 |6+ |2+ 


< 
A 

ee 
("4 an 


LSLA 
LSLB 
LSL 
LSRA 
LSRB 
LSR 
NEGA 
NEGB 
NEG 
ORA 
ORB 
ORCC 
PSHS 
PSHU 
PULS 
PULU 
ROLA 
ROLB 
ROL 
RORA 
RORB 


[a 


Inhérent Description 2 
Opl-!# N |Z 
4 |21|1 = tit 
æ|2l|i1 OT t|î 

| v7 s|tl' 
#}21]1 g |? 
#|2l1 jo TI olt 

| u Le <|olt 
3D | 11 | 1 JAXB-D (Non signé) |. |: 
4 | 2 A+1-A 8itlt 
58 | 2 B+1-B 811 
M+1-M 8|tlt 

12 | 2 | 1 | Non opératoire |. e 
AVM-A hell 

BVM—B tit 

| CCVIMM-CC 


— — — 


49 | 2 
59 | 2 
46 | 2 
56 | 2 


Empile les registres sur la pile S 
Empile les registres sur la pile U 


Dépile les registres de la piles S 
Dépile les registre de la pile U 


ICT 
JTE 


zo>|zox> 


—+ — — 


A Mir 
3B |6/15 [il Retour d'interruption . 


OO ON CO EI ÉERICEERE 7 


39 | 5 | 1 | Retour de sous-programme lee 

| | Pa ENENERE 
-M-C> tl1 

| B-M-C-B [8 | | î 

ID | 2 | 1 | Extension du signe de B à A 11119 
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Mode d’adressage 


= à © QC | 


SWI(6) 
SW12(6) 


SW13(6) 


E RAR RP 


2 |6D16+2+17D]7 3 
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Description 


AM 
B-M 
D-M:M#+1 
S>MM#+1 


U-M:M+1 
X-MM#+1 
Y-MM+1 


Interruption logicielle 1 
Interruption logicielle 2 


Interruption logicielle 3 


Synchronisation du logiciel 
avec une interruption 


Notes : 
1. (supprimée) 
2. R1 et R2 peuvent être n’importe quelle paire de registres 8 bits ou 
n'importe quelle paire de registres 16 bits. 
Les registres 8 bits sont A, B, CC, DP 
Les registres 16 bits sont X, Y, U, S, D, PC 
3. EA signifie Adresse Effective 
4. Les instructions PSH et PUL nécessitent 5 cycles plus ! cycle pour chaque 
octet empilé ou dépilé. 
5. 5(6) signifie : 5 cycles si le branchement n’est pas fait 
6 cycles si le branchement est fait. 
6. SWI met à 1 les bits I et F du CC 
SWI2 et SWI3 n’affectent pas l et F 
7. L'état du registre CC dépend de la valeur de IMM 
8. La valeur du bit de 1/2 retenue est indéterminée 
9. Cas particulier. € est mis à 1 si le bit 7 de B est mis à 1. 


209 


Instruction Set 


Instruction Description 


ABX 
ADC 
ADD 
AND 
ASL 
ASR 
BCC 
BCS 
BEQ 
BGE 
BGT 
BHI 
BHS 
BIT 
BLE 
BLO 
BLS 
BLT 
BMI 
BNE 
BPL 
BRA 
BRN 
BSR - 
BVC 
BvS 
CLR 
CMP 
COM 
CWAI 
DAA 
DEC 
EOR 
EXG 
INC 
JMP 
ISR 
LD 
LEA 
LSL 
LSR 
MUL 
NEG 
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Add Accumulator B into Index Register X  NOP 


Add with Carry into Register OR 
Add Memory into Register PSH 
Logical AND Memory into Register PUL 
Arithmetic Shift Left ROL 
Arithmetic Shift Right ROR 
Branch on Carry Clear RTI 
Branch on Carry Set RTS 
Branch on Equal SBC 
Branch on Greater Than or Equal to Zero SEX 
Branch on Greater ST 
Branch if Higher SUB 
Branch if Higher or Same SWI 
Bit Test SYNC 
Branch if Less than or Equal to Zero TFR 
Branch on Lower TST 


Branch on Lower or Same 
Branch on Less than Zero 
Branch on Minus 

Branch Not Equal 

Branch on Plus 

Branch Always 

Branch Never 

Branch to Subroutine 
Branch on Overflow Clear 
Branch on Overflow Set 
Clear 

Compare Memory from a Register 
Complement 

Clear CC bits and Wait for Interrupt 
Decimal Addition Adjust 
Decrement 

Exclusive OR 

Exchange Registers 
Increment 

Jump 

Jump to Subroutine 

Load Register from Memory 
Load Effective Address 
Logical Shift Left 

Logical Shift Right 

Multiply 

Negate 


Instruction Description 


No Operation 

Inclusive OR Memory into Register 
Push Registers 

Pull Registers 

Rotate Left 

Rotate Right 

Return from Interrupt 

Return from Subroutine 
Subtract with Borrow 

Sign Extend 

Store Register into Memory 
Subtract Memory from Register 
Software Interrupt 

Synchronize to External Event 
Transfer Register to Register 
Test 


Code machine 6899 


OP  Mnem Mode 
00 NEG Direct 
gl . 

92 . 

93 COM 

#4 LSR 

85 e 

06 ROR 

97 ASR 

98 ASL, LSL 

99 ROL 

$A DEC 

fB 

OC INC 

8D TST 

$8E  JMP 

@F CLR Direct 
19 — 

il — 
12 NOP Inhérent 
13 SYNC Inhérent 
14 . 

15 . 

16 LBRA Relatif 
17 LBSR Relatif 
18 . 

19 DAA Inhérent 
IA  ORCC Imméd 
1B e = 
IC  ANDCC Imméd 
ID SEX Inhérent 
IE  EXG Imméd 
1F TFR Imméd 
29 BRA Relatif 
21 BRN 

2 BHI 

23 BLS 

24 BHS, BCC 

25 BLO, BCS 

26 BNE 

21 BEQ 


DD 


ON © NH 


Cod ur CD nd nd (und und Lund  LAD 


D #% 


nn D 


D D — ND 


D D D ND D D D D D 


NEGA 


COMA 
LSRA 
e° 
RORA 
ASRA 
ASLA, LSLA 
ROLA 
DECA 
°. 

INCA 
TSTA 


CLRA 


Mode 


Relatif 
Indexé 


Indexé 
Imméd 


Imméd 
Inhérent 


Inhérent 


Inhérent 


Inhérent 


LE + 1 
+ + + + = % © Le LD Le Lo 


A Ua LA Un 
+ + + + 


D D D D ND 
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Mnem Mode 


Inhérent 


COMB 
LSRB 
e. 
RORB 
ASRB 
ASLB, LSLB 
ROLB 
DECB 
e. 
INCB 
TSTB 


CLRB Inhérent 


NEG Indexé 


COM 

LSR 

e 

ROR 

ASR 
ASE, ESL 
ROL 
DEC 

e 

INC 

TST 

JMP 

CER Indexé 


NEG Etendu 


np © 


tn D D rs ro 


D ty 


tn 


6+ 


+ 7 3 1 — 


Cod D gd D 


OP 


7B 
1C 
7D 
7E 
7F 


8 
8l 
82 
8 
84 
85 
86 
87 
88 
89 
8A 
8B 
8C 
8D 
8E 
8F 


90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
9A 
9B 
9C 
9D 
9E 
9F 


Mode 


Etendu 


Imméd 


Imméd 
Relatif 
Imméd 


Direct 


Direct 


t 


D D D © BE © © 


DO J H © 1 © 


Lot Lug LD D 


D 1] © Cd DD D ty 


nm D > D ts D 


ND D D D D D D D D D 1 © 9 19 KR 19 


OP 


AY 
AI 
A2 
A3 
A4 
AS 
A6 
AT 
A8 
A9 
AA 
AB 
AC 
AD 
AE 
AF 


BÛ 
BI 
B2 
Bi 
B4 
BS 
B6 
B7 
B8 
B9 
BA 
BB 
BC 
BD 
BE 
BF 


CU 
C1 
C2 
C3 
C4 
CS 


Mnem 


SUBA 
CMPA 
SBCA 
SUBD 
ANDA 
BITA 
LDA 
STA 
EORA 
ADCA 
ORA 
ADDA 
CMPX 
JSR 
LDX 
STX 


SUBA 
CMPA 
SBCA 
SUBD 
ANDA 
BITA 
LDA 
STA 
EORA 
ADCA 
ORA 
ADDA 
CMPX 
JSR 
LDX 
STX 


SUBB 
CMPB 
SBCB 
ADDD 
ANDB 
BITB 


Mode 


Indexé 


Indexé 


Etendu 


Etendu 


Imméd 


Imméd 


tm ts & © © 1 


Us (3 Lo Lo Lo 9 Lg (2 Lu LD C2 Log CD LD (2 Las 


D D % ND NN ty 


SUBB 
CMPB 
SBCB 
ADDD 
ANDB 
BITB 
LDB 
STB 
EORB 
ADCB 
ORB 
ADDB 
EDD 
STD 
LDU 
STU 


Mode 
Imméd 


Imméd 


Direct 


Direct 


Indexé 


Indexé 


Si D ON ND D 


S ND D ND NH 


DO N D D D D À ND D ND NN NH ND NH 


D DD D D ND D 
+++ + + + + 


tn 
+ 


D D D 
+ + + 


D D D D ND 
+ + + + + 
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1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1929 
102A 
192B 
192C 
192D 
192E 
102F 
103F 
1983 
198C 
108E 
1093 
189C 
189E 
199F 
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Mnem 


SUBB 
CMPB 
SBCB 
ADDD 
ANDB 
BITB 
LDB 
STB 
EORB 
ADCB 
ORB 
ADDB 


LDD 
STD 
LDU 
STU 


LBRN 
LBHI 

LBLS 
LBHS, LBCC 
LBCS, LBLO 
LBNE 
LBEQ 
LBVC 

LBVS 

LBPL 

LBMI 

LBGE 

LBLT 

LBGT 

LBLE 

sWI2 
CMPD 
CMPY 

LDY 

CMPD 
CMPY 

LDY 

STY 


Mode 
Etendu 


Etendu 


Etendu 


Etendu 


Relatif 


Relatif 
Inhérent 
Imméd 


Imméd 
Direct 


Direct 


Cod LD Cd Lg Leg Cd La Cd CAD Lg Leg LD 


Ud Lg Lo Cd 


DU US R BED LL RL LR LE BR & 


OP 


18A3 
IBAC 
IAE 
PAF 
10B3 
10BC 
I0BE 
10BF 
I0CE 
10DE 
10DF 
IJEE 
10EF 
I0FE 
10FF 
113F 
1183 
118C 
1193 
119C 
11A3 
I1AC 
11B3 
11BC 


Mnem 


CMPD 
CMPY 
LDY 
STY 
CMPD 
CMPY 
LDY 
STY 
EDS 
LDS 
STS 
LDS 
STS 
LDS 
STS 
SW 
CMPU 
CMPS 
CMPU 
CMPS 
CMPU 
CMPS 
CMPU 
CMPS 


Mode 


Indexe 


Indexé 
Etendu 


Etendu 
Imméd 
Direct 
Direct 
Indexé 
Indexé 
Etendu 
Etendu 
Inhérent 
Imméd 
Imméd 
Direct 
Direct 
Indexé 
Indexé 
Etendu 
Etendu 


LD LD 


BL +R BRL HS BE E& » 


D © 


La Cassette ‘Faites vos jeux en assembleur sur TO7-T07-78”° est dispo- 
nible. 

Cette cassette d'accompagnement contient les programmes de jeux pro- 
posés dans cet ouvrage ainsi que les programmes Editeur et Edit. 
Vous éviterez ainsi les recopiages fastidieux de listes d’instructions et 
vous gagnerez un temps précieux pour vous consacrer entièrement aux 
plaisirs et aux connaissances que vous apporte ce livre. 

Pour cela, il vous suffit de nous retourner le bon de commande ci- 
dessous : 


= >< 


Bon de commande 


A compléter et à retourner aux Éditions CEDIC 
32, boulevard Saint-Germain 
75005 Paris 


ans ns ss mms sms mm ns mme sms sms 


[] Je souhaite recevoir la cassette associée ‘‘Faites vos jeux?” 
Réf - 1C3001. 


Cassette ‘‘Faites vos jeux’” -----:------------. 50,00 F 
Frais d'envoi -:-----.--............ 10,00 F 
TOLAL 5% sus ere ses 60,00 F 
Ci-joint un [] chèque bancaire [1 chèque postal 
d’un montant de .............. F 
Daté sens: Signature ........ 


cedic/nathan 


32. boulevard Sant Germain 
75005 Paris 
Tel 326.42 71 


L'impression de ce livre 
a été réalisée sur les presses 
des Imprimeries Aubin 
à Poitiers/Ligugé 


Pe 


Achevé d'imprimer le 17 août 1984 
N° d'impression, L 16998 
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Imprimé en France 


